
6 Nov
2007
6 Nov
'07
8:56 a.m.
On Tue, 6 Nov 2007, marnes wrote:
fib :: Integer -> Integer fib n = fibaux n 0 1 1 where fibaux :: Integer -> Integer -> Integer -> Integer -> Integer fibaux i a b c | i==0 = a | i/=0 = fibaux (i-1) b c (b+c)