Data commit

Task/Sparkline-in-unicode/Clojure/sparkline-in-unicode.clj

@@ -0,0 +1,15 @@
+(defn sparkline [nums]
+  (let [sparks   "▁▂▃▄▅▆▇█"
+        high     (apply max nums)
+        low      (apply min nums)
+        spread   (- high low)
+        quantize #(Math/round (* 7.0 (/ (- % low) spread)))]
+        (apply str (map #(nth sparks (quantize %)) nums))))
+
+(defn spark [line]
+  (if line
+    (let [nums (read-string (str "[" line "]"))]
+      (println (sparkline nums))
+      (recur (read-line)))))
+
+(spark (read-line))