(defn re-partition
"Splits the string into a lazy sequence of substrings, alternating
between substrings that match the patthern and the substrings
between the matches. The sequence always starts with the substring
before the first match, or an empty string if the beginning of the
string matches.
For example: (re-partition #\"[a-z]+\" \"abc123def\")
Returns: (\"\" \"abc\" \"123\" \"def\")"
[^Pattern re string]
(let [m (re-matcher re string)]
((fn step [prevend]
(lazy-seq
(if (.find m)
(cons (.subSequence string prevend (.start m))
(cons (re-groups m)
(step (+ (.start m) (count (.group m))))))
(when (< prevend (.length string))
(list (.subSequence string prevend (.length string)))))))
0)))
Used in 0 other vars
Source
clojure/contrib/str_utils.clj:31
top
Comments top
No comments for re-partition. Log in to add a comment.