RosettaCodeData/Task/Repeat-a-string/MUMPS/repeat-a-string-1.mumps

10 lines
162 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
RPTSTR(S,N)
;Repeat a string S for N times
NEW I
FOR I=1:1:N WRITE S
KILL I
QUIT
RPTSTR1(S,N) ;Functionally equivalent, but denser to read
F I=1:1:N W S
Q