4 lines
239 B
Raku
4 lines
239 B
Raku
sub Y (&f) { sub (&x) { x(&x) }( sub (&y) { f(sub ($x) { y(&y)($x) }) } ) }
|
|
sub fac (&f) { sub ($n) { $n < 2 ?? 1 !! $n * f($n - 1) } }
|
|
sub fib (&f) { sub ($n) { $n < 2 ?? $n !! f($n - 1) + f($n - 2) } }
|
|
say map Y($_), ^10 for &fac, &fib;
|