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

new example code

Browse source 
FossilOrigin-Name: 1dcb91aa4cefd617722d5bfacc85229e7a429d095f622d7b46fc04d3722d08ff
This commit is contained in:
crc 2018-09-13 19:42:54 +00:00
parent 40deaf5c4a
commit a60ba41c58
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
example/LightWeightFlowControl.forth Normal file
View file

@ -0,0 +1,8 @@
~~~
:0=; n:zero? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
:< lt? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
:> gt? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
:<> -eq? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
:if; [ as{ 'popopodr i 'drdrre.. i }as ] if ;
:?; dup [ as{ 'popopodr i 'drdrre.. i }as ] if drop ;
~~~