diff options
Diffstat (limited to 'src/pronouns/util.clj')
-rw-r--r-- | src/pronouns/util.clj | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/pronouns/util.clj b/src/pronouns/util.clj new file mode 100644 index 0000000..1269664 --- /dev/null +++ b/src/pronouns/util.clj @@ -0,0 +1,16 @@ +(ns pronouns.util + (:require [clojure.string :as s])) + +(defn slurp-tabfile [path] + (let [lines (s/split (slurp path) #"\n")] + (map #(s/split % #"\t") lines))) + +(defn table-lookup + [query-key table] + (let [arity (count query-key) + filtered-table (filter #(= query-key (take arity %)) table)] + (first filtered-table))) + +(defn tabfile-lookup + [query-key tabfile] + (table-lookup query-key (slurp-tabfile tabfile))) |