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 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
[initial-line]
(loop
[line initial-line
[[head & tail :as line] initial-line
partial-token []
saved-pos 0
result []]
(let [close-partial-token (fn [] (conj-with-metadata result (apply str partial-token) saved-pos))
current-pos (- (count initial-line) (count line))
previous-token (:token (last result) "")
parsing-token? (not (empty? partial-token))
head (first line)
tail (rest line)]
parsing-token? (not (empty? partial-token))]
(match [head parsing-token?]
[(:or \; nil) true ] (close-partial-token)
[(:or \; nil) false] result