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

3 lines
114 B
Scheme

(define (string-repeat n str)
(fold string-append "" (make-list n str)))
(string-repeat 5 "ha") ==> "hahahahaha"