Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
|
|
@ -0,0 +1,18 @@
|
|||
if y then @=6 /* Y must be either 0 or 1 */
|
||||
|
||||
if t**2>u then x=y /*simple IF with THEN & ELSE. */
|
||||
else x=-y
|
||||
|
||||
if t**2>u then do j=1 for 10; say prime(j); end /*THEN DO loop.*/
|
||||
else x=-y /*simple ELSE. */
|
||||
|
||||
if z>w+4 then do /*THEN DO group.*/
|
||||
z=abs(z)
|
||||
say 'z='z
|
||||
end
|
||||
else do; z=0; say 'failed.'; end /*ELSE DO group.*/
|
||||
|
||||
if x>y & c*d<sqrt(pz) |, /*this statement is continued [,]*/
|
||||
substr(abc,4,1)=='~' then if z=0 then call punt
|
||||
else nop /*NOP pairs up IF*/
|
||||
else if z<0 then z=-y /*alignment helps*/
|
||||
|
|
@ -0,0 +1,24 @@
|
|||
/*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 here & none of the WHENs were*/
|
||||
/*satisfiied, a SYNTAX (error) condition is raised*/
|
||||
end /*1st select*/
|
||||
|
||||
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 many='?'
|
||||
end /*2nd select*/ /* [↑] uses OTHERWISE as a catch-all.*/
|
||||
|
|
@ -0,0 +1,14 @@
|
|||
select
|
||||
when g=='angel' then many='host'
|
||||
when g=='ass' | g=='donkey' then many='pace'
|
||||
when g=='crocodile' then many='bask'
|
||||
when g=='crow' then many='murder'
|
||||
when g=='lark' then many='ascension'
|
||||
when g=='quail' then many='bevy'
|
||||
when g=='wolf' then many='pack'
|
||||
otherwise say
|
||||
say '*** error! ***'
|
||||
say g "isn't one of the known thingys."
|
||||
say
|
||||
exit 13
|
||||
end /*select*/
|
||||
Loading…
Add table
Add a link
Reference in a new issue