плющило ночью

main.clj

(ns your-application
  (:use clojure.math.numeric-tower))
;
(defn rndgen_recur [l c n]
  (if (= c n)
    l
    (recur (conj l (rand 10)) (inc c) n)))

(defn rndgen [n]
  (rndgen_recur () 0 n))

(defn vector-range [v]
  (- (reduce max v) (reduce min v)))

(defn slice_rec [in_data quant normal slices]
  (if (empty? in_data)
    slices
    (let [pos (floor (/ (- (first in_data) normal) quant))]
      (let [col (if (= col (count slices)) (dec col) col)]
          (recur (rest in_data) quant normal (assoc slices col (inc (get slices col))))))))

(defn slice [vector parts]
  (let [slices (vec (repeat parts 0))]
    (slice_rec vector (/ (vector-range vector) parts) (reduce min vector) slices)))

(println "sugar " (slice (range -10 10 0.1) 10))
(println "sugar " (slice (rndgen 100) 10))