3 lines
120 B
Common Lisp
3 lines
120 B
Common Lisp
(defun repeat-string (n string)
|
|
(with-output-to-string (stream)
|
|
(loop repeat n do (write-string string stream))))
|