gistfile1.clj

(ns test.core
  (:require [clojure.string :as s]))


(defn expand-interval-test
  [interval v]
  (map (fn [s]
         (cond (re-seq #"^\d+\.?\d*$" s)
               `(<= ~v ~(Float/parseFloat s))
               (re-seq #"^(\d+\.?\d*)-(\d+\.?\d*)$" s)
               (let [[_ x y] (first (re-seq #"^(\d+\.?\d*)-(\d+\.?\d*)$" s))]
                 `(and (>= ~v ~(Float/parseFloat x)) (<= ~v ~(Float/parseFloat y))))
               (re-seq #"^(\d+\.?\d*)\+$" s)
               (let [[_ x] (first (re-seq #"^(\d+\.?\d*)\+$" s))]
                 `(>= ~v ~(Float/parseFloat x)))
               (= "-" s)
               `true
               :else (throw (Exception. (str "Don't know how to parse this: " s)))))
       (s/split interval #",")))

(defmacro interval-test-fn
  [interval]
  (let [v (gensym "v")]
    `(fn [~v]
       (or ~@(expand-interval-test interval v)))))