scheme - 繰り返しの間にスペースを入れて繰り返し文字列を構築する

Question

repeat数値と文字列を受け取り、文字列をnスペースで区切って繰り返し返します。

;; repeat: number string -> string
(define (repeat n str)
  (replicate n str))

(repeat 2 "home")

私に与えます：

"homehome"

「ホーム ホーム」になるようにスペースを追加するにはどうすればよいですか?

Answer 1

strに渡す前に、最後に文字列にスペースを追加しますreplicate。

(replicate n (string-append str " "))

@Tobiaが示唆するように、それを取り除きたい場合は、最後に余分なスペースが残ります。

(string-trim (replicate n (string-append str " ")))

Answer 2

Racket には組み込み関数string-joinがあるため、通常の Racket では次のようになります。

> (string-join (build-list 2 (lambda (i) "home")))
"home home"