partial application

chat.log

Yan Shkurinskiy, [18/4/22 8:41 AM]
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)


первый выполняется долго, второй - быстро