11 lines
295 B
Text
11 lines
295 B
Text
[ [ 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
|