{"name":"gist: 834802","desc":"","actor":"rhz","url":"https://gist.github.com/834802","snippet":"(defn prob-n [pred tol in n] ;; in is a csv's filename\n  (let [as (for [[_ _ p m] (map #(.split % \";\") (rest (.split (slurp in) \"\\n\"))) :when p]\n             (if (empty? m) [p] [p m])) ;; take the third and fourth (if possible) column of each row","actor_gravatar":"98b853f17402000802f692d318d6d050","action":"update"}