RosettaCodeData/Task/Y-combinator/Lang/y-combinator-3.lang
2023-07-01 13:44:08 -04:00

11 lines
219 B
Text

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))