Anonymous user
Repeat a string: Difference between revisions
m
→{{header|REXX}}: corrected some typos. -- ~~~~
(→{{header|REXX}}: compressed the program by removing blank lines, added a few more examples. -- ~~~~) |
m (→{{header|REXX}}: corrected some typos. -- ~~~~) |
||
Line 922:
five: procedure expose y; parse arg g
if length(
return five(y||g)
/*---------------------*/
y='something wicked this way comes.
z=y||y||y||y||y||y||y||y||y||y||y||y|\y||y||y
z=left(z,5*length(y))
/*---------------------*/
y='+'
Line 975:
end
/*---------------------*/
y=
parse value y||y||y||y||y with z
</lang>
| |||