文字列を反復する

文字を反復する

文字列を反復するには，文字の場合と文字列の場合でやり方が異なる．
文字の場合はmake-stringで反復できる．

(make-string k &optional char)

使用例．
charを指定しないと空白文字が繰り返される．

(make-string 5 #\c)
  =>"ccccc"
(make-string 5)
  =>"     "

文字列を反復する

文字列の場合は，make-stringは使えない．make-listとstring-joinを組み合わせて使う．

(define (repeat-string n str)
  (string-join (make-list n str) ""))

使用例．

(repeat-string 5 "分かるまで何度でも言う")
  =>"分かるまで何度でも言う分かるまで何度でも言う分かるまで何度でも言う分かるまで何度でも言う分かるまで何度でも言う"