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