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

whitespace and other cosmetic changes

Browse Source
This commit is contained in:
Richard Harrington 2014-10-12 11:20:22 -04:00
parent 47f922512f
commit 5893e4b5e6
2 changed files with 16 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/robotwar/handler.clj
View File

@ -15,15 +15,13 @@
:*GAME-SECONDS-PER-TICK* *GAME-SECONDS-PER-TICK*})
(defn parse-program-names
"takes a string parameter from the browser and returns a seqence
"takes a string parameter from the browser and returns a sequence
of program keys"
[programs-str]
(map keyword (split programs-str #"[,\s]\s*")))
(defn get-programs
"gets a sequence of programs from the source-code
repository. some may be repeats. discards failed matches.
cuts off after five."
"gets a sequence of five programs from the source-code repository."
[program-keys]
(take 5 (filter identity (map #(% source-programs/programs) program-keys))))