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

added list of commands data structure, for parser

Browse Source
This commit is contained in:
Richard Harrington 2013-07-12 17:42:01 -04:00
parent 1d703dd693
commit cd7a707b6a
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/hs_robotwar/core.clj
View File

@ -1,13 +1,16 @@
(ns hs-robotwar.core)
(use '[clojure.core.match :only (match)])
(use '[clojure.set :only (union)])
(def registers (set (concat (map #(-> % char str) (range (int \A) (inc (int \Z))))
["AIM" "SHOT" "RADAR" "DAMAGE" "SPEEDX" "SPEEDY" "RANDOM" "INDEX"])))
(def operators #{\= \< \> \# \+ \- \* \/})
(def registers (union (set (map #(-> % char str) (range (int \A) (inc (int \Z)))))
#{"AIM" "SHOT" "RADAR" "DAMAGE" "SPEEDX" "SPEEDY" "RANDOM" "INDEX"}))
(def commands (union (set (map str operators))
#{"TO" "IF" "GOTO" "GOSUB" "ENDSUB"}))
(defn conj-with-metadata
[coll s n]