12 lines
1 KiB
Rexx
12 lines
1 KiB
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; $= 0; do j=1 for arg()
|
|
do k=1 for words( arg(j) ); $= $ + word( arg(j), k)
|
|
end /*k*/
|
|
end /*j*/
|
|
return $
|
|
/*──────────────────────────────────────────────────────────────────────────────────────*/
|
|
add2: procedure; return add( arg(1), 2)
|