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

mirror of https://github.com/acmeism/RosettaCodeData.git
(define (string-repeat n str)
  (apply string-append (vector->list (make-vector n str))))
	`(define (string-repeat n str)`
	`(apply string-append (vector->list (make-vector n str))))`