RosettaCodeData/Task/Order-two-numerical-lists/Joy/order-two-numerical-lists.joy
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

4 lines
106 B
Text

DEFINE order ==
[equal] [false]
[[[[size] dip size <=] [[<=] mapr2 true [and] fold]] [i] map i and]
ifte.