8 lines
314 B
Forth
8 lines
314 B
Forth
~~~
|
|
: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 ;
|
|
~~~
|