From e68a957a69d523ad46b9b47896007c2ba647c949 Mon Sep 17 00:00:00 2001 From: Adam Jeniski Date: Sun, 3 Dec 2023 09:58:54 -0500 Subject: [PATCH] add regex w/ position util --- 2023/src/core.clj | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/2023/src/core.clj b/2023/src/core.clj index 6bebc2a..c677e12 100644 --- a/2023/src/core.clj +++ b/2023/src/core.clj @@ -14,5 +14,12 @@ :body string/split-lines)))) +(defn re-seq-pos [pattern string] + (let [m (re-matcher pattern string)] + ((fn step [] + (when (. m find) + (cons {:start (. m start) :end (. m end) :group (. m group)} + (lazy-seq (step)))))))) + (comment input-cache)