Clojureでオートコンプリートのサンプルを実装する方法は？

Question

このブログ記事（http://williamedwardscoder.tumblr.com/post/18319031919/programming-language-readability）には、プログラミング言語の読みやすさを比較するための、HaskellとPythonでの自動補完の実装が含まれています。

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") 

非ワード値を格納する、ソートのようなもの、及び圧縮は、読者への課題として残されています。