crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

new example

Browse source 
FossilOrigin-Name: d3a4d01e151c86e306b9dff8b18148d977ef108de8cedfb8848a055ccf2bb28d
This commit is contained in:
crc 2017-10-17 20:28:43 +00:00
parent f4005e5c02
commit 881d81f492
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
example/sort-on-stack.forth Normal file
View file

@ -0,0 +1,10 @@
~~~
: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
~~~