Name: Anonymous 2008-12-20 15:04
fibs = 1 : zipWith (+) fibs (tail fibs)
fibs = 1 : zipWith (+) fibs (tail fibs)
#include <math.h>
#define SQRT5 sqrtl(5)
#define PI (atanl(1) * 4)
#define FIB(n) ((1 / SQRT5) * (powl((SQRT5 + 1) / 2, n) - powl(2 / (SQRT5 + 1), n) * cosl(n * PI)))