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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Conditional-structures/OoRexx/conditional-structures-1.rexx Normal file
View file

@ -0,0 +1 @@
if arg~isa(.string) & arg~left(1) == "*" then call processArg arg

1
Task/Conditional-structures/OoRexx/conditional-structures-2.rexx Normal file
View file

@ -0,0 +1 @@
if arg~isa(.string), arg~left(1) == "*" then call processArg arg

25
Task/Conditional-structures/OoRexx/conditional-structures-3.rexx Normal file
View file

@ -0,0 +1,25 @@
if y then x=6 /* Y must be either 0 or 1 */
if t**2>u then x=y
else x=-y
if t**2>u then do j=1 to 10; say prime(j); end
else x=-y
if z>w+4 then do
z=abs(z)
say 'z='z
end
else do; z=0; say 'failed.'; end
if x>y & c*d<sqrt(pz) |,
substr(abc,4,1)=='@' then if z=0 then call punt
else nop
else if z<0 then z=-y

14
Task/Conditional-structures/OoRexx/conditional-structures-4.rexx Normal file
View file

@ -0,0 +1,14 @@
/*the WHEN conditional operators are the same as */
/*the IF conditional operators. */
select
when t<0 then z=abs(u)
when t=0 & y=0 then z=0
when t>0 then do
y=sqrt(z)
z=u**2
end
/*if control reaches this point and none of the WHENs */
/*were satisfiied, a SYNTAX condition is raised (error).*/
end

14
Task/Conditional-structures/OoRexx/conditional-structures-5.rexx Normal file
View file

@ -0,0 +1,14 @@
select
when a=='angel' then many='host'
when a=='ass' | a=='donkey' then many='pace'
when a=='crocodile' then many='bask'
when a=='crow' then many='murder'
when a=='lark' then many='ascension'
when a=='quail' then many='bevy'
when a=='wolf' then many='pack'
otherwise say
say '*** error! ***'
say a "isn't one of the known thingys."
say
exit 13
end