    {:char-dist-unique (count char-dist)
     :char-dist-variance (->> char-dist stat/variance)
     :char-dist-mean (->> char-dist stat/mean double)}))
-
-;(char-dist-features "abcabc aabb aaaaaa abcabcabcabc abcdefgabcdefgabcdefg")
-
-

                        [(or occurs -1) (or length -1)])))
         (apply merge lrs-features))))

;(clojure.pprint/pprint (lsr-features "abcabc aabb aaaaaa abcabcabcabc abcdefgabcdefgabcdefg" 7))

;; chararcter distribution
(defn char-dist-feature-metas
  "See [[char-dist-features]]."

                          :length (count rs)
                          :occurs (StringUtils/countConsecutiveOccurs rs text)
                          :unique (count (StringUtils/uniqueChars rs))}))
                  (#(if (empty? %)
                      [{:str "" :length -1 :occurs -1 :unique -1}]
                      %))
                  (sort (fn [a b]
                          (compare (:occurs b) (:occurs a)))))
        lrs-features (->> reps
                          (sort (fn [a b]
                                  (compare (:length b) (:length a))))
                          (take 1)
                          (map (fn [{:keys [length unique]}]
                                 {:lrs-len length
                                  :lrs-unique-chars unique}))
                          first)
