sim.clj

(ns similar)

(defprotocol Similar
  "Similarity"
  (sim [a b] "if a and b are similar return true"))

(def nsim (complement sim))

(def delta 1e-10)

(extend-protocol Similar
  java.lang.Number
  (sim [a b] (< (abs (- a b)) delta))
  clojure.lang.ISeq
  (sim [a b]
       (and (= (count a) (count b)) (every? identity (map sim a b)))
       )
  clojure.lang.PersistentVector
  (sim [a b] (sim (seq a) (seq b)))
  )