Comment detail

不動点演算子 (Nested Flatten)

Haskell は、まあほぼ自明なやつですが……

ついでに実行例でも:

Prelude> let y f = f $ y f
Prelude> let fib_maker f x = if x <= 2 then 1 else f (x-1) + f (x-2)
Prelude> let fib = y fib_maker
Prelude> map fib [1..10]
[1,1,2,3,5,8,13,21,34,55]
1
let y f = f $ y f

Index

Feed

Other

Link

Pathtraq

loading...