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)_______________________________________________ Haskell-Cafe mailing list [email protected] http://www.haskell.org/mailman/listinfo/haskell-cafe
