Apple-2-SW/robotwar
1
0
Fork 0
mirror of https://github.com/richardharrington/robotwar.git synced 2024-06-11 21:29:28 +00:00
Code Issues Projects Releases Wiki Activity

refactored re-seq-with-pos AGAIN

Browse Source
This commit is contained in:
Richard Harrington 2013-07-14 16:59:43 -04:00
parent 9e391344da
commit 1aedb1ee29
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/hs_robotwar/core.clj
View File

@ -12,16 +12,17 @@
#{"TO" "IF" "GOTO" "GOSUB" "ENDSUB"}))
(defn re-seq-with-pos
"returns a sequence of 2-element vectors in the form [match position]"
"Like re-seq, but returns a sequence of 2-element vectors
in the form [match pos] where pos is match's position in the original string"
[re initial-s]
(loop [s initial-s
acc []]
(if (empty? s)
acc
(let [match (re-find re s)]
(if (and match (= (.indexOf s match) 0))
(recur (subs s (count match)) (conj acc [match (- (count initial-s) (count s))]))
(recur (apply str (rest s)) acc))))))
(loop [s initial-s
acc []]
(if-let [match (re-find re s)]
(let [match-pos (.indexOf s match)]
(recur (subs s (+ match-pos (count match)))
(conj acc [match
(+ match-pos (- (count initial-s) (count s)))])))
acc)))
(defn build-lex-metadata
[s n]