sliders.clj

(ns sliders)

(defmacro slider [l]
  (let [dashes (vec (repeat l "-"))]
    `(do ~@(map (fn [i]
                  `(defn
                     ~(symbol (clojure.string/join (assoc dashes i "*")))
                     []
                     ~(/ i (- l 1))))
                (range l)))))


(defmacro sliders [l]
  `(do ~@(map (fn [i] `(slider ~i)) (range 2 l))))

(sliders 20)

(*-)                          ;; 0
(-*-)                         ;; 1/2
(--*)                         ;; 1
(-----*-)                     ;; 5/6
(---*---)                     ;; 1/2
(-----*---------)             ;; 5/14
(--*------------)             ;; 1/7
(-----------*-----)           ;; 11/16

(+ (----*-)
   (-----*))                  ;; 9/5

(- (--*-)
   (--------*--))             ;; -2/15

(float (--*----))             ;; 0.33333
(float (-----*----))          ;; 0.55555
(float (-----*-----))         ;; 0.5
(float (-----------*-------)) ;; 0.611111111
(float (-*))                  ;; 1.0