       (println (count ts))
       (doseq [[a b c] (sort ts)]
         (println a b c)))))
-
-
-#(let [[a b c] %
-       s (/ (+ a b c) 2)
-       p (Math/sqrt (* s (- s a) (- s b) (- s c)))
-       r (/ p s)]
-  (<= r 3))
-
-(defn bla-bla-truc []
-  (take 20 (map #(let [[a b c] %
-                       s (double (/ (+ a b c) 2))
-                       p (Math/sqrt (* s (- s a) (- s b) (- s c)))
-                       r (/ p s)]
-                  {:inradius r :permiter s :area p :sides %})
-                (iterate #(update-in % [2] inc) [1 1 1]))))
 
 (def rev-vec (comp vec reverse))
 

                              (< % pos) %2
                              (> % pos) lower))
                          x)))
      (assoc x (dec size) (inc (last x))))))
            rev-vec)
        (assoc iv (dec size) lc)))))

(defn odometer-generator [size lower upper]
  (fn [x]
    (if (= upper (last x))
