9 lines
176 B
Text
9 lines
176 B
Text
|
over : 2 pick
|
||
|
|
2dup : over over
|
||
|
|
|
||
|
|
compare : 2dup = then " equals"
|
||
|
|
compare : 2dup < then " is less than"
|
||
|
|
compare : 2dup > then " is more than"
|
||
|
|
|
||
|
|
show : compare rot , sp ,t sp , nl
|