Repeat a string: Difference between revisions
Content added Content deleted
(add language: Retro) |
m (→{{header|Retro}}: tiny cleanup) |
||
Line 554: | Line 554: | ||
<lang Retro>with strings' |
<lang Retro>with strings' |
||
: repeatString ( $n-$ ) |
: repeatString ( $n-$ ) |
||
1- [ dup |
1- [ dup ] dip [ over prepend ] times nip ; |
||
"ha" 5 repeatString</lang> |
"ha" 5 repeatString</lang> |