core.clj

(ns antonyms.core
  (:gen-class)
  (:require [clj-http.client :as client]))

(use 'clojure.java.io)

(defn process-file
  "Call func once for with each line in filename"
  [filename func]
  (with-open [rdr (reader filename)]
    (doseq [line (line-seq rdr)]
      (func line))))

(defn parse-line [line]
  (map clojure.string/trim (clojure.string/split line #"[-]")))

(defn check-antonym
  [line]
  (let [[word antonym] (parse-line line)
        word-length (count word)
        antonym-length (count antonym)]
    (if (= word-length antonym-length)
      (println (str word " - " antonym)))))

(defn -main
  [filename]
  (process-file filename check-antonym))