文字列繰り返し
いきなり困った!デフォじゃなさそう
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"))
いきなり困った!デフォじゃなさそう
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"))