RosettaCodeData/Task/Repeat-a-string/Factor/repeat-a-string.factor

4 lines
89 B
Factor

: repeat-string ( str n -- str' ) swap <repetition> concat ;
"ha" 5 repeat-string print