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