Anonymous user
Repeat a string: Difference between revisions
m
→{{header|REXX}}: added a comment. -- ~~~~
(Showed some different (but less efficient) solutions) |
m (→{{header|REXX}}: added a comment. -- ~~~~) |
||
Line 1,017:
z=upper('',,5,y)
/*───────────────────────────────────────────*/
y='charter bus.'
z='*****'
Line 1,051 ⟶ 1,052:
parse value y||y||y||y||y with z
exit /*stick a fork in it, we're done.*/
/*═══════════════════════════CHANGESTR subroutine═══════════════════════*/
changestr: procedure; parse arg o,h,n,,r; w=length(o); if w==0 then return n||h
|