RosettaCodeData/Task/Y-combinator/J/y-combinator-1.j
2025-06-11 20:16:52 -04:00

3 lines
120 B
Text

Y =. {{x&(x`:6)`'' u y}} {{u`''&u}}
fac=. 1:`{{(* x`:6@<:)y}}@.(0 < ])
fib=. {{(-&1 +&(x`:6) -&2)y}}^:(1 < ])