RosettaCodeData/Task/Y-combinator/J/y-combinator-3.j

5 lines
186 B
Text
Raw Permalink Normal View History

2025-06-11 20:16:52 -04:00
Y =. ]:&>/]:^:_1 b.]:`(<'0';_1)`:6&([ 128!:2 ,&<)
sr =. [ apply f. ,&< NB. Self referring
2024-10-16 18:07:41 -07:00
fac=. 1:`(] * [ sr ] - 1:)@.(0 < ])
fib=. (([ sr ] - 2:) + [ sr ] - 1:)^:(1 < ])