Integer comparison: Difference between revisions
m
→{{header|Joy}}
(Integer comparison with switch/case in Rapira) |
m (→{{header|Joy}}) |
||
Line 2,081:
=={{header|Joy}}==
<
DEFINE
prompt == "Please enter a number and <Enter>: " putchars;
Line 2,087:
putln == put newline.
stdin # F
prompt fgets # S F
10 strtol # A F
swap # F A
dupd # F A A
prompt fgets # S F A A
10 strtol # B F A A
popd # B A A
dup # B B A A
rollup # B A B A
[<] [swap put "is less than " putchars putln] [] ifte
[=] [swap put "is equal to " putchars putln] [] ifte
[>] [swap put "is greater than " putchars putln] [] ifte
# B A
quit.</
=={{header|jq}}==
|