Repeat a string: Difference between revisions
Content added Content deleted
(Add REALbasic) |
|||
Line 610: | Line 610: | ||
RPTSTR1(S,N) ;Functionally equivalent, but denser to read |
RPTSTR1(S,N) ;Functionally equivalent, but denser to read |
||
F I=1:1:N W S |
F I=1:1:N W S |
||
Q |
Q |
||
;Even better (more terse) |
|||
S x="",$P(x,"-",10)="-" |
|||
W x |
|||
</lang> |
|||
=={{header|NewLISP}}== |
=={{header|NewLISP}}== |