Создание строки пустых символов

Question

Как построить код, который вставляет b пробельных символов между двумя входными строками? Конкретно я спрашивал о функции, которая вводит

 (newfn "AAA" "ZZZ" 10) 

и выводит 10 пробелов между строками "ААА" и "ZZZ"

Answer 1

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

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