refactors get-programs using threading operator

2014-10-12 11:26:48 -04:00 · 2014-10-12 11:26:48 -04:00 · ca7b2dfb4b
parent 5893e4b5e6
commit ca7b2dfb4b
1 changed files with 4 additions and 1 deletions
--- a/src/robotwar/handler.clj
+++ b/src/robotwar/handler.clj
@ -23,7 +23,10 @@
 (defn get-programs
  "gets a sequence of five programs from the source-code repository."
  [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
  "a function to update the games-store atom state.