10 lines
187 B
Forth
10 lines
187 B
Forth
~~~
|
|
:sort-pair dup-pair lt? [ swap ] if ;
|
|
:perform-sort sort-pair depth #2 gt? [ [ perform-sort ] dip ] if ;
|
|
:sort depth [ perform-sort ] times ;
|
|
~~~
|
|
|
|
~~~
|
|
#3 #33 #22 #333 #5 sort
|
|
~~~
|
|
|