core.clj

(defn truncate [coll t]
  (let [c coll
        ct (first c)
        rt (second c)]
    [(if (>= (count ct) t)
       (apply str (take t ct) "...")
       ct)
     (if (>= (count rt) t)
       (apply str (take t rt) "...")
       rt)]))

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