6 lines
174 B
Text
6 lines
174 B
Text
|
: example ( ab- )
|
||
|
|
getToken getToken &toNumber bi@ cons
|
||
|
|
[ do > [ "A > B\n" puts ] ifTrue ]
|
||
|
|
[ do < [ "A < B\n" puts ] ifTrue ]
|
||
|
|
[ do = [ "A = B\n" puts ] ifTrue ] tri ;
|