aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

48
Task/Integer-comparison/REXX/integer-comparison.rexx
View file

@ -1,25 +1,25 @@
/*REXX program prompts for two integers, compares 'em, tells results. */
numeric digits 1000 /*for the users that go ka-razy. */
a=getInt('─────── Please enter your first integer:') /*get 1st integer.*/
b=getInt('─────── Please enter your second integer:') /*get 2nd integer.*/
/*REXX program prompts for two integers, compares them, and displays the results.*/
numeric digits 1000 /*for the users that really go ka─razy.*/
@=copies('─', 20) /*eyeball catcher for the user's eyen. */
a=getInt(@ 'Please enter your 1st integer:') /*obtain the 1st integer from the user.*/
b=getInt(@ 'Please enter your 2nd integer:') /* " " 2nd " " " " */
say
if a<b then say @ a ' is less than ' b
if a=b then say @ a ' is equal to ' b
if a>b then say @ a ' is greater than ' b
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
getInt: do forever; say /*keep prompting the user 'til success.*/
say arg(1) /*display the prompt message to console*/
parse pull x /*obtain X, and keep its case intact.*/
select
when x='' then call serr "No argument was entered."
when words(x)>1 then call serr 'Too many arguments entered.'
when \datatype(x,'N') then call serr "Argument isn't numeric:" x
when \datatype(x,'W') then call serr "Argument isn't an integer:" x
if a<b then say a ' is less than ' b
if a=b then say a ' is equal to ' b
if a>b then say a ' is greater than ' b
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────GETINT subroutine───────────────────*/
getInt: procedure /*prompt the CBLF, get an integer*/
/*¬geeks: Carbon-Based Life Form.*/
do forever /*keep prompting until success. */
say; say arg(1) /*display the prompt message. */
parse pull x /*get X, and keep its case intact*/
select
when x='' then call serr 'Nothing was entered.'
when words(x)>1 then call serr 'Too many arguments entered.'
when \datatype(x,'N') then call serr "Argument isn't numeric:" x
when \datatype(x,'W') then call serr "Argument isn't an integer:" x
otherwise return x /*Eureka! Return X to invoker.*/
end /*select*/
end /*forever*/
/*──────────────────────────────────SERR subroutine─────────────────────*/
serr: say '***error!*** ' arg(1); say "Please try again."; return
otherwise return x /* [↑] Eureka! Return # to invoker. */
end /*select*/
end /*forever*/
/*──────────────────────────────────────────────────────────────────────────────────────*/
serr: say @ '***error*** ' arg(1); say @ "Please try again."; return