new example code
FossilOrigin-Name: 1dcb91aa4cefd617722d5bfacc85229e7a429d095f622d7b46fc04d3722d08ff
This commit is contained in:
parent
40deaf5c4a
commit
a60ba41c58
1 changed files with 8 additions and 0 deletions
8
example/LightWeightFlowControl.forth
Normal file
8
example/LightWeightFlowControl.forth
Normal 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 ;
|
||||
~~~
|
Loading…
Reference in a new issue