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

Another update from ingydotnet^djgoku

Browse source
This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
parent 91df62d461
commit 948b86eafa
7604 changed files with 108452 additions and 22726 deletions
Download patch file Download diff file Expand all files Collapse all files

51
Task/Apply-a-callback-to-an-array/REXX/apply-a-callback-to-an-array.rexx
View file

@ -1,29 +1,26 @@
/*REXX program to apply a callback to a stemmed (REXX) array. */
a.=; b.=
a.0= 0
a.1= 1
a.2= 2
a.3= 3
a.4= 4
a.5= 5
a.6= 6
a.7= 7
a.8= 8
a.9= 9
a.10=10
call listab 'before'
call bangit 'a','b' /*factorialize the A array, store results in B */
call listab ' after'
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────BANGIT subroutine───────────────────*/
bangit: do i=0
_=value(arg(1)'.'i); if _=='' then return
call value arg(2)'.'i,fact(_)
/*REXX pgm applies a callback to an array (using factorials for demonstration)*/
a.=; b.=; a.0 = 0
a.1 = 1
a.2 = 2
a.3 = 3
a.4 = 4
a.5 = 5
a.6 = 6
a.7 = 7
a.8 = 8
a.9 = 9
a.10 = 10
call listAB 'before'
call bangit 'a','b' /*factorialize the A array, store results───►B.*/
call listAB ' after'
exit /*stick a fork in it, we're all done. */
/*────────────────────────────────────────────────────────────────────────────*/
bangit: do i=0; _=value(arg(1)'.'i); if _=='' then return
call value arg(2)'.'i, fact(_)
end /*i*/
/*──────────────────────────────────FACT subroutine─────────────────────*/
fact: procedure; !=1; do j=2 to arg(1); !=!*j; end; return !
/*──────────────────────────────────LISTAB subroutine───────────────────*/
listab: do j=0 while a.j\==''; say arg(1) 'a.'j"="a.j; end /*j*/
say; do k=0 while b.k\==''; say arg(1) 'b.'k"="b.k; end /*k*/
/*────────────────────────────────────────────────────────────────────────────*/
fact: procedure; !=1; do j=2 to arg(1); !=!*j; end; return !
/*────────────────────────────────────────────────────────────────────────────*/
listAB: do j=0 while a.j\==''; say arg(1) 'a.'j"="a.j; end /*j*/; say
do k=0 while b.k\==''; say arg(1) 'b.'k"="b.k; end /*k*/
return