copy-string

Description

Copies string num times and returns the result.

Example

(copy-string "x" 3) returns "xxx"

Author

Norman Walsh, <ndw@nwalsh.com>

Source Code

(define (copy-string string num)
  ;; Return a string duplicated a specified number of times
  (if (<= num 0)
      ""
      (let loop ((str string) (count (- num 1)))
	(if (<= count 0)
	    str
	    (loop (string-append str string) (- count 1))))))