Order two numerical lists: Difference between revisions
Added Quackery.
MaiconSoft (talk | contribs) (Added Delphi example) |
(Added Quackery.) |
||
Line 1,794:
<lang python>>>> [1,2,1,3,2] < [1,2,0,4,4,0,0,0]
False</lang>
=={{header|Quackery}}==
<lang Quackery> [ [ over [] = iff false done
dup [] = iff true done
behead rot behead rot
2dup = iff
[ 2drop swap ] again
> ]
unrot 2drop ] is []< ( [ [ --> b )
' [ [ ] [ 1 ] [ 1 1 1 ] [ 1 2 ] [ 1 2 1 ] [ 2 ] [ 2 1 ] [ 2 1 1 ] ]
shuffle sortwith []< echo</lang>
{{out}}
<pre>[ [ ] [ 1 ] [ 1 1 1 ] [ 1 2 ] [ 1 2 1 ] [ 2 ] [ 2 1 ] [ 2 1 1 ] ]</pre>
=={{header|Racket}}==
| |||