创建一个空白字符串

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)