format
This commit is contained in:
+5
-5
@@ -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)))
|
||||
|
||||
Reference in New Issue
Block a user