RosettaCodeData/Task/Y-combinator/Lang/y-combinator-3.lang

12 lines
219 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
fp.fib = (fp.func) -> {
fp.retFunc = (fp.func, $x) -> {
return parser.op($x < 2?1:fp.func($x - 2) + fp.func($x - 1))
}
return fn.combAN(fp.retFunc, fp.func)
}
fp.fibY = fp.combY(fp.fib)
fn.println(fp.fibY(10))