rendezvous with cassidoo challenge: 24.09.30

split.clj

(ns split
  "Prompt: Implement your own String split() function 
   in your preferred programming language.
  
   My solution is only for single character separators
   so is not nearly as useful as Clojure's version 
   allowing for regexes."
  (:require [clojure.test :refer [deftest is]]))

(defn split [s sep]
  (if (= sep "")
    (map str s)
    (loop [s s
           acc []
           curr ""]
      (if (seq s)
        (let [c (str (first s))]
          (if (= c sep)
            (recur (rest s) (conj acc curr) "")
            (recur (rest s) acc (str curr c))))
        (conj acc curr)))))

(deftest split-test
  (let [s "This is so, so silly!"]
    (is (= (split s " ")
           ["This" "is" "so," "so" "silly!"]))

    (is (= (split s "")
           ["T" "h" "i" "s" " " "i" "s" " " "s" "o" "," " " "s" "o" " " "s" "i" "l" "l" "y" "!"]))

    (is (= (split s ",")
           ["This is so" " so silly!"]))))