Fedreg

(use 'clojure.test)

(def trie (atom {}))

(defn in-trie? [a k]
  (let [key-chars (mapv str (name k))
        xs        (first key-chars)
        ys        (rest  key-chars)]
    (cond
      (and (not-empty ys)