;; Sample Clojure program — samplefiles.com
(ns sample.core)

(def customers
  [{:id 1 :name "Ada" :balance 12500.0}
   {:id 2 :name "Grace" :balance 830.5}
   {:id 3 :name "Linus" :balance 10000.0}])

(defn vip? [c] (>= (:balance c) 10000))

(defn total-balance [cs] (reduce + (map :balance cs)))

(defn -main []
  (doseq [c customers]
    (println (format "%-6s %10.2f %s" (:name c) (:balance c) (if (vip? c) "VIP" ""))))
  (println (format "Total: %.2f" (total-balance customers))))