RosettaCodeData/Task/Repeat-a-string/Factor/repeat-a-string.factor
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

3 lines
89 B
Factor

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