format
This commit is contained in:
+5
-5
@@ -12,8 +12,8 @@
|
|||||||
(->> s (re-seq regex) (map rest)))
|
(->> s (re-seq regex) (map rest)))
|
||||||
|
|
||||||
(defn re-pos [re s]
|
(defn re-pos [re s]
|
||||||
(loop [m (re-matcher re s)
|
(loop [m (re-matcher re s)
|
||||||
res {}]
|
res {}]
|
||||||
(if (.find m)
|
(if (.find m)
|
||||||
(recur m (assoc res (.start m) (.group m)))
|
(recur m (assoc res (.start m) (.group m)))
|
||||||
res)))
|
res)))
|
||||||
|
|||||||
Reference in New Issue
Block a user