Anonymous user
Apply a callback to an array: Difference between revisions
m
→{{header|REXX}}: removed superflous blanks. -- ~~~~
No edit summary |
m (→{{header|REXX}}: removed superflous blanks. -- ~~~~) |
||
Line 1,476:
/*─────────────────────────────────────BANGIT subroutine────────────────*/
bangit: do j=0
_=value(arg(1)'.'j); if _=='' then return
call value arg(2)'.'j,fact(_)
end
/*─────────────────────────────────────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
say
do j=0 while b.j\==''
say arg(1) 'b.'j"="b.j
end
| |||