Apple-2-SW/robotwar
1
0
Fork 0
mirror of https://github.com/richardharrington/robotwar.git synced 2024-10-03 03:55:43 +00:00
Code Issues Projects Releases Wiki Activity

literalized the declaration of the set of registers

Browse Source
This commit is contained in:
Richard Harrington 2013-07-16 11:51:32 -04:00
parent 92d918fef3
commit 242c36c104
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/hs_robotwar/core.clj
View File

@ -5,8 +5,9 @@
(def operators "-+*/=#<>")
(def registers (union (set (map #(-> % char str) (range (int \A) (inc (int \Z)))))
#{"AIM" "SHOT" "RADAR" "DAMAGE" "SPEEDX" "SPEEDY" "RANDOM" "INDEX"}))
(def registers #{ "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M"
"N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"
"AIM" "SHOT" "RADAR" "DAMAGE" "SPEEDX" "SPEEDY" "RANDOM" "INDEX"})
(def commands (union (set (map str operators))
#{"TO" "IF" "GOTO" "GOSUB" "ENDSUB"}))