PF.tv Issue 387 Challenge

issue387.clj

(ns issue387
    (:require [clojure.string :as s]))

(defn asterisks [word]
    (apply str (repeat (.length word) "*")))

(defn clean-word [sample word]
    (s/replace sample (re-pattern (str "(?i)" word)) (asterisks word)))

(defn clean [sample index]
    (loop [s sample i index]
        (if (empty? i)
            s
            (recur (clean-word s (first i)) (rest i)))))