gistfile1.clj

(ns my-stuff.core
  (:require [clojure.string :as str]))

(defn anagram?
  [word word']
  (let [letter? #(Character/isLetter %)
        letters #(->> % str/lower-case (filter letter?) set)]
    (= (letters word) (letters word'))))

(defn -main
  [& args]
  (if (not= (count args) 2)
    (println "Usage: <first word> <second word>")
    (if (anagram? (first args) (second args))
      (println "Anagram")
      (println "Not an anagram"))))