関数型プログラミング言語Haskell Part30 [無断転載禁止]©2ch.net

[855 デフォルトの名無しさん 2017/08/13(日) 22:35:47.24 ID:3dVRXwBQ]

>>851
fib1 40は1秒かからなかったけど
fib2 40だと37秒かかった

fib1 = (map fib1' [0 ..] !!)
where
fib1' 0 = 0
fib1' 1 = 1
fib1' n = fib1 (n - 1) + fib1 (n - 2)

fib2 x = map fib2' [0 ..] !! x
where
fib2' 0 = 0
fib2' 1 = 1
fib2' n = fib2 (n - 1) + fib2 (n - 2)