к
Size: a a a
DB
YS
MK
-dsuppress-all -dsuppress-uniques
MK
YS
YS
MK
YS
YS
YS
YS
foo :: Int -> Int
foo x = map fib [0..] !! x
where
fib 0 = 1
fib 1 = 1
fib n = foo (n-2) + foo (n-1)
foo :: Int -> Int
foo = (map fib [0..] !!)
where
fib 0 = 1
fib 1 = 1
fib n = foo (n-2) + foo (n-1)
YS
YS
MK
MK
YS
YS
YS