16 lines
620 B
Rexx
16 lines
620 B
Rexx
/*REXX program demonstrates a REXX currying method to perform addition. */
|
|
say 'add 2 to 3: ' add(2, 3)
|
|
say 'add 2 to 3 (curried):' add2(3)
|
|
exit /*stick a fork in it, we're all done. */
|
|
/*--------------------------------------------------------------------------------------*/
|
|
add: procedure
|
|
sum=0
|
|
do j=1 for arg()
|
|
do k=1 for words(arg(j))
|
|
sum=sum+word(arg(j),k)
|
|
end /*k*/
|
|
end /*j*/
|
|
return sum
|
|
/*--------------------------------------------------------------------------------------*/
|
|
add2: procedure
|
|
return add(arg(1),2)
|