RosettaCodeData/Task/Repeat-a-string/Racket/repeat-a-string-1.rkt

#lang racket
;; fast
(define (string-repeat n str)
  (string-append* (make-list n str)))
(string-repeat 5 "ha") ; => "hahahahaha"
update 2013-06-05 21:47:54 +00:00			`#lang racket`
			`;; fast`
tasks a-s 2013-04-10 23:57:08 -07:00			`(define (string-repeat n str)`
update 2013-06-05 21:47:54 +00:00			`(string-append* (make-list n str)))`
			`(string-repeat 5 "ha") ; => "hahahahaha"`