Apple-2-SW/robotwar
1
0
Fork 0
mirror of https://github.com/richardharrington/robotwar.git synced 2024-09-09 14:54:50 +00:00
Code Issues Projects Releases Wiki Activity

refactored to destructure head and tail in lexer

Browse Source
This commit is contained in:
Richard Harrington 2013-07-12 17:41:31 -04:00
parent 8e98cbfe63
commit 1d703dd693
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/hs_robotwar/core.clj
View File

@ -16,16 +16,14 @@
(defn lex-line (defn lex-line
[initial-line] [initial-line]
(loop (loop
[line initial-line [[head & tail :as line] initial-line
partial-token [] partial-token []
saved-pos 0 saved-pos 0
result []] result []]
(let [close-partial-token (fn [] (conj-with-metadata result (apply str partial-token) saved-pos)) (let [close-partial-token (fn [] (conj-with-metadata result (apply str partial-token) saved-pos))
current-pos (- (count initial-line) (count line)) current-pos (- (count initial-line) (count line))
previous-token (:token (last result) "") previous-token (:token (last result) "")
parsing-token? (not (empty? partial-token)) parsing-token? (not (empty? partial-token))]
head (first line)
tail (rest line)]
(match [head parsing-token?] (match [head parsing-token?]
[(:or \; nil) true ] (close-partial-token) [(:or \; nil) true ] (close-partial-token)
[(:or \; nil) false] result [(:or \; nil) false] result