RosettaCodeData/Task/Y-combinator/J/y-combinator-13.j
2019-09-12 10:33:56 -07: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
)