創建一個空字符串

Question

如何構造一個在兩個輸入字符串之間插入b空白字符的代碼？ 具體我詢問其輸入

 (newfn "AAA" "ZZZ" 10) 

並輸出字符串 「AAA」 和 「ZZZ」 10點之間的空白

Answer 1

(defn wrap-spaces [h t n] 
    (let [blanks (apply str (repeat n " "))] 
    (str h blanks t))) 

(wrap-spaces "AAA" "ZZZ" 10)