Merge pull request #17 from non/topic/disambiguate

Add code to disambiguate pronouns dynamically.
This commit is contained in:
Morgan 2015-03-15 02:07:06 -07:00
commit 25bab46051
2 changed files with 33 additions and 6 deletions

View File

@ -90,16 +90,14 @@
(take 5 inputs) (take 5 inputs)
(u/table-lookup inputs pronouns-table)))) (u/table-lookup inputs pronouns-table))))
;; we could choose to display the entire row for the label. (defn make-link [abbrev row]
;; currently the first two entries are enough to disambiguate the
;; pronouns -- will that always be true?
(defn make-link [row]
(let [link (str "/" (s/join "/" row)) (let [link (str "/" (s/join "/" row))
label (str (first row) "/" (first (rest row)))] label (s/join "/" abbrev)]
[:li [:a {:href link} label]])) [:li [:a {:href link} label]]))
(defn front [pronouns-table] (defn front [pronouns-table]
(let [links (map make-link (sort pronouns-table)) (let [abbreviations (u/abbreviate (sort pronouns-table))
links (map (fn [entry] (make-link (first entry) (second entry))) abbreviations)
title "Pronoun Island"] title "Pronoun Island"]
(html (html
[:html [:html

View File

@ -14,3 +14,32 @@
(defn tabfile-lookup (defn tabfile-lookup
[query-key tabfile] [query-key tabfile]
(table-lookup query-key (slurp-tabfile tabfile))) (table-lookup query-key (slurp-tabfile tabfile)))
(defn disambiguate
"given a row and its lexically-closest neighbors,
determine the smallest abbreviation which is still
distinct."
[prev row next]
(loop [n 1]
(let [row-n (take n row)]
(cond
(>= n 5) row
(= row-n (take n prev)) (recur (+ n 1))
(= row-n (take n next)) (recur (+ n 1))
:else row-n))))
(defn abbreviate
"given a list of pronoun rows, return a list of
pairs, where the first item is the abbreviation
and the second is the original pronoun row."
[sorted-table]
(loop [acc nil
prev nil
row (first sorted-table)
todo (rest sorted-table)]
(let [next (first todo)
abbrev (disambiguate prev row next)
pair (list abbrev row)
acc2 (conj acc pair)]
(if (empty? todo) (reverse acc2)
(recur acc2 row next (rest todo))))))