rendezvous with cassidoo challenge: 23.03.05

scramble.clj

(ns scramble
  (:require [clojure.string :as string]))

(defn scramble-word [w]
  (let [middle-letters (subs w 1 (dec (count w)))
        mixed-middle   (shuffle (seq middle-letters))]
    (str (first w) (apply str mixed-middle) (last w))))

(defn scramble [s]
  (string/join " "
     (reduce (fn [acc w]
               (cond
                 (#{"." "," "?"} w)
                 (conj (pop acc) (str (last acc) w))

                 (> (count w) 3)
                 (conj acc (scramble-word w))

                 :else (conj acc w)))
             []
             (re-seq #"\w+|[^\w\s]" s))))

(comment
  (def s "A quick brown fox jumped over the lazy dog.")
  (scramble s)) ;; "A qucik bworn fox jumepd oevr the lzay dog."