This commit is contained in:
Adam Jeniski 2024-12-04 23:09:58 -05:00
parent fabea05fdf
commit 22ac0db085

View File

@ -12,8 +12,8 @@
(->> s (re-seq regex) (map rest)))
(defn re-pos [re s]
(loop [m (re-matcher re s)
res {}]
(if (.find m)
(recur m (assoc res (.start m) (.group m)))
res)))
(loop [m (re-matcher re s)
res {}]
(if (.find m)
(recur m (assoc res (.start m) (.group m)))
res)))