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

2 lines
56 B
Text
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
YX=. (1 :'('':''<@;(1;~":0)<@;<@((":0)&;))u')($:`)(`:6)