Select Code to Download

#!/usr/bin/env clj
(ns histosample
...
(let
    [max (reduce max data) min (reduce min data) nbins (Math/abs (- ma
+x min))]
    (view (histogram data :nbins nbins :x-label "Value")))