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

Sync

Browse source
This commit is contained in:
Ingy döt Net 2013-10-27 22:24:23 +00:00
parent 6f050a029e
commit 776bba907c
3887 changed files with 59894 additions and 7280 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Flow-control-structures/REXX/flow-control-structures-3.rexx
View file

@ -13,16 +13,11 @@ signal off lostdigits
signal off notready
signal off novalue
signal off syntax
∙
∙
∙
...
signal on novalue
∙
∙
...
x=oopsay+1
∙
∙
∙
...
novalue: say
say '*** error! ***'
say
@ -34,6 +29,4 @@ say 'REXX source statement is:'
say sourceline(sigl)
say
exit 13
∙
∙
∙
...

4
Task/Flow-control-structures/REXX/flow-control-structures-4.rexx
View file

@ -4,9 +4,7 @@
say 'negative j=' -j
end
say 'end of the DO loop for j.'
∙
∙
∙
...
ouch=60
sum=0

4
Task/Flow-control-structures/REXX/flow-control-structures-5.rexx
View file

@ -7,9 +7,7 @@ sum=0
/*shows sum of 1k numbers except those divisible by 3 or 7.*/
say 'sum='sum
∙
∙
∙
...
numeric digits 5000
prod=0

4
Task/Flow-control-structures/REXX/flow-control-structures-6.rexx
View file

@ -1,7 +1,5 @@
numeric digits 1000 /*prepare for some gihugeic numbers.*/
∙
∙
∙
...
n=4
call factorial n
say n'!=' result

8
Task/Flow-control-structures/REXX/flow-control-structures-7.rexx
View file

@ -1,14 +1,10 @@
∙
∙
∙
...
prod=1
a=7 /*or somesuch.*/
b=3 /* likewise. */
op='**' /*or whatever.*/
∙
∙
∙
...
select
when op=='+' then r=a+b /*add. */
when op=='-' then r=a-b /*subtract. */