                (map lrs-unique-feature-metas)
                (apply concat))))
 
-(defn lsr-features
+(defn lrs-features
   "Return the following features:
 
   * **:lrs-len** longest repeating string length

   {: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")



                          :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)
