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

31
Task/Man-or-boy-test/REXX/man-or-boy-test.rexx
View file

@ -1,16 +1,17 @@
/*REXX program performs the "man or boy" test as far as possible for N. */
do n=0 /*increment N from 0 forever.*/
say 'n='n a(N,x1,x2,x3,x4,x5) /*display the result to the term.*/
end /*n*/ /* [↑] do until something breaks*/
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────A subroutine────────────────────────*/
a: procedure; parse arg k,x1,x2,x3,x4,x5
if k<=0 then return f(x4)+f(x5)
/*REXX program performs the "man or boy" test as far as possible for N. */
do n=0 /*increment N from zero forever. */
say 'n='n a(N,x1,x2,x3,x4,x5) /*display the result to the terminal. */
end /*n*/ /* [↑] do until something breaks. */
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
a: procedure; parse arg k, x1, x2, x3, x4, x5
if k<=0 then return f(x4) + f(x5)
else return f(b)
/*──────────────────────────────────one─liner subroutines───────────────*/
b: k=k-1; return a(k,b,x1,x2,x3,x4)
f: interpret 'v=' arg(1)"()"; return v
x1: procedure; return 1
x2: procedure; return -1
x3: procedure; return -1
x4: procedure; return 1
/*──────────────────────────────────────────────────────────────────────────────────────*/
b: k=k-1; return a(k, b, x1, x2, x3, x4)
f: interpret 'v=' arg(1)"()"; return v
x1: procedure; return 1
x2: procedure; return -1
x3: procedure; return -1
x4: procedure; return 1
x5: procedure; return 0