RosettaCodeData/Task/Y-combinator/J/y-combinator-13.j
2023-07-01 13:44:08 -04:00

9 lines
128 B
Text

Y=:2 :0(0 :0)
NB. this block will be n in the second part
:
g=. x&(x`:6)
(5!:1<'g') u y
)
f=. u (1 :n)
(5!:1<'f') f y
)