Solving the Teleprompter coding kata in clojure

gistfile1.clj

; Solving the Teleprompter coding kata in clojure
; (http://codingkata.org/katas/unit/teleprompter)

(defn de-slang [text dictionary]
    (->>
        (.split text "\\$")
        (map (fn [word] [(str "\\$" word "\\$") (get dictionary word)]))
        (filter (fn [word_set] (last word_set)) )
        (reduce (fn [str, word_set] (.replaceAll str (first word_set) (last word_set)))  text)) )



; Testing it
(def dictionary {"name" "nomenknocker", "Bob" "Frizizl", "I have" "i haz"})
(def text "my $name$ is $Bob$ and $I have$ $50 cash." )
(de-slang text dictionary )
;> "my nomenknocker is Frizizl and i haz $50 cash."