5 lines
158 B
Text
5 lines
158 B
Text
|
: compare \ n m --
|
||
|
|
2dup n:= if "They are equal" . cr then
|
||
|
|
2dup n:< if "First less than second" . cr then
|
||
|
|
n:> if "First greater than second" . cr then ;
|