core.clj

(defn truncate [t coll]
    (map (fn [ct]
      (if (>= (count ct) t)
        (apply str (take t ct) "...")
         ct)) coll))
     

(defn walton*
  [#^String s t m?]
  (let [result (walton-doc s)]
    (if (>= m? 1)
      (take m? (map (partial truncate t) result))
      (let [random-result (nth result (rand-int (count result)))]
        (truncate random-result)))))