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

refactors get-programs using threading operator

Browse Source
This commit is contained in:
Richard Harrington 2014-10-12 11:26:48 -04:00
parent 5893e4b5e6
commit ca7b2dfb4b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/robotwar/handler.clj
View File

@ -23,7 +23,10 @@
(defn get-programs (defn get-programs
"gets a sequence of five programs from the source-code repository." "gets a sequence of five programs from the source-code repository."
[program-keys] [program-keys]
(take 5 (filter identity (map #(% source-programs/programs) program-keys)))) (->> program-keys
(map source-programs/programs)
(remove nil?)
(take 5)))
(defn add-game (defn add-game
"a function to update the games-store atom state. "a function to update the games-store atom state.