 
 (d/diff [1 2 3] [1 2 4])
 
-#_(defspec slope-rules
-  (fn [p1 p2] (slope :p1 p1 :p2 p2))
-  [[^long ^long] [^long ^long]]
-  (assert (float? %)))
-
 (defn filter-rising [segments]
   (clojure.set/select
    (fn [{:keys [p1 p2]}]


(edn/read-string "42")

(edn/read-string "#ch14/time [1 :min 30 :sec]")

(def T ('ch14/time #'joy.ch14/time-reader))

(edn/read-string {:readers T} "#ch14/time [1 :min 30 :sec]")

(edn/read-string {:readers T, :default vector} "#what/the :huh?")

            :cm 1/100
            :mm [1/10 :cm]}))

;;#unit/legth [1 :km]

(def time-reader
  (partial convert
