4 lines
158 B
Text
4 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 ;
|