path: root/fac.hs

facn a b = fac a b 1

fac a 0 c = c
fac a b c = fac (a*a) (div b 2) (c*(if odd b then a else 1))

--fibn a = fib a 1 1 1 1 0