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

13 lines
242 B
Text

fp.fac = (fp.func) -> {
fp.retFunc = (fp.func, $n) -> {
return parser.op($n < 2?1:$n * fp.func($n - 1))
}
return fn.combAN(fp.retFunc, fp.func)
}
# Apply Y combinator
fp.facY = fp.combY(fp.fac)
# Use function
fn.println(fp.facY(10))