RosettaCodeData/Task/Order-two-numerical-lists/Joy/order-two-numerical-lists.joy

5 lines
106 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
DEFINE order ==
[equal] [false]
[[[[size] dip size <=] [[<=] mapr2 true [and] fold]] [i] map i and]
ifte.