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

4 lines
127 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
Y=. '('':''<@;(1;~":0)<@;<@((":0)&;))'(2 : 0 '')
(1 : (m,'u'))(1 : (m,'''u u`:6('',(5!:5<''u''),'')`:6 y'''))(1 :'u u`:6')
)