さくらんぼのlambda日記

lambdaちっくなことからゲーム開発までいろいろ書きます。

文字列繰り返し

いきなり困った!デフォじゃなさそう
http://rosettacode.org/wiki/Repeating_a_string#Common_Lisp

ここのを利用します。

(defun repeat-string (n string)
  (with-output-to-string (stream)
    (loop repeat n do (write-string string stream))))
 
(princ (repeat-string 5 "hi"))