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

refactored re-seq-with-pos to be more elegant, possibly slightly slower

Browse Source
This commit is contained in:
Richard Harrington 2013-07-13 15:35:56 -04:00
parent 3b03274c2e
commit 9e391344da
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/hs_robotwar/core.clj
View File

@ -12,20 +12,16 @@
#{"TO" "IF" "GOTO" "GOSUB" "ENDSUB"}))
(defn re-seq-with-pos
"returns a sequence of 2-element vectors: [match position]"
"returns a sequence of 2-element vectors in the form [match position]"
[re initial-s]
(loop [s initial-s,
end-of-previous-word 0
acc []]
(if (empty? s)
acc
(if-let [next-match (re-find re s)]
(let [idx-start (.indexOf s next-match)
idx-end (+ idx-start (count next-match))]
(recur (subs s idx-end)
(+ end-of-previous-word idx-end)
(conj acc [next-match (+ end-of-previous-word idx-start)])))
acc))))
(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))))))
(defn build-lex-metadata
[s n]