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