verb.clj

(ns verbs.core
  (:require [clojure.data.csv :as csv]
            [clojure.java.io :as io])
  (:gen-class))

(def types {
  :verb "so"
  :pronoun "pfn"
  :adjective "lo"
  :number "to"
  :adverb "ao"})

(def data (with-open [in-file (io/reader "resources/in-file.csv")]
  (doall
    (csv/read-csv in-file :separator \;))))

(def fields
  [:word :id :type :section :form :tag])

(def words
  (map #(zipmap fields %) data))

(defn find-word [query]
  #(= (:form %) query))

(defn find-by-type [type]
  #(= (:type %) (type types)))

(def verbs
  (map :form
    (filter (find-by-type :adjective) words)))

(defn -main
  "Show me all the verbs"
  [& args]
  (doseq [i verbs]
   (println i)))