int * fibArray(int n) {
int * fibs;
fibs = (int *)malloc((sizeof int) * n);
for (i = 0; i < n; i++) {
fibs[i] = a;
temp = a + b;
a = b;
b = temp;
}
return fibs;
}
--------------------------------------------------------
fibs :: [Int]
fibs = 0 : 1 : [ a + b | (a, b) <- zip fibs (tail fibs)]