構建重複字符串與重複之間的空格

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 " ")) 

這將在年底離開一個額外的空間，如果你想擺脫它做的@託比亞提示：

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

Answer 2

球拍有一個內置的功能字符串加入這一點，所以在普通的球拍，這將是

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