如何在Clojure中实现自动填充示例？

Question

此博客文章（http://williamedwardscoder.tumblr.com/post/18319031919/programming-language-readability）包含Haskell和Python中的自动完成实现，以比较编程语言的可读性。

想知道如何在Clojure中实现它。由于Clojure代码具有更强的抽象能力，Clojure代码会更具可读性吗？

Answer 1

甲简约实现：

(ns trie.example) 

(defn trie-add [trie & words] 
    (reduce 
    (fn [trie word] 
    (assoc-in trie (concat word [::val]) word)) 
    trie 
    words)) 

(defn trie-matches [trie prefix] 
    (letfn [(search [node] 
      (mapcat (fn [[k v]] 
         (if (= ::val k) [v] (search v))) 
        node))] 
    (search (get-in trie prefix)))) 

实例：

;; Create trie 
(def trie (trie-add {} "foo" "ba" "bar" "baz" "qux" "quux")) 

;; trie looks like this: 
{\q 
{\u 
    {\u {\x {:trie.example/val "quux"}}, 
    \x {:trie.example/val "qux"}}}, 
\b 
{\a 
    {\z {:trie.example/val "baz"}, 
    \r {:trie.example/val "bar"}, 
    :trie.example/val "ba"}}, 
\f {\o {\o {:trie.example/val "foo"}}}} 

;; Autocomplete 
(trie-matches trie "ba") 
=> ("baz" "bar" "ba") 

比如像分类，存储非字值，并且压缩被留下作为练习给读者。