RosettaCodeData/Task/Repeat-a-string/Scheme/repeat-a-string-1.ss

3 lines
90 B
Scheme
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
(define (string-repeat n str)
(apply string-append (vector->list (make-vector n str))))