gistfile1.clj

(defn expert-eval
  [abs expert]
  (case expert
        "alexa" (map #(if (and (<= (% :abs1) (. Integer parseInt abs))
                               (>= (% :abs2) (. Integer parseInt abs)))
                        (% :grade))
                     (gen-alexa-regeln))
        "google" (map #(if (= (% :abs) abs)
                         (% :grade))
                      (gen-google-regeln))
        "feedburner" (map #(if (and (<= (% :abs1) (. Integer parseInt abs))
                                    (>= (% :abs2) (. Integer parseInt abs)))
                             (% :grade))
                          (gen-feedburner-regeln))
        ""))