6 lines
147 B
Factor
6 lines
147 B
Factor
|
: example ( -- )
|
||
|
|
readln readln [ string>number ] bi@
|
||
|
|
[ > [ "A > B" print ] when ]
|
||
|
|
[ < [ "A < B" print ] when ]
|
||
|
|
[ = [ "A = B" print ] when ] 2tri ;
|