vba-clojure: clojure/com/aurellem/gb/hxc.clj comparison

minor correction.

comparison

equal deleted inserted replaced

-:40b5bff9576c
+:2b6bd03feb4f
 (defn search-map [proto-map maps]
 "Returns all the maps that make the same associations as proto-map."
 (some (partial submap? proto-map) maps))
-;; (I don't use this for anything so far.)
+(defn filter-vals
-;;
+"Returns a map consisting of all the pairs [key val] for
-;; (defn filter-vals
+which (pred key) returns true."
-;;   "Returns a map consisting of all the pairs [key val] for which (pred
+[pred map]
-;;   key) returns true."
+(reduce (partial apply assoc) {}
-;;   [pred map]
+(filter (fn [[k v]] (pred v)) map)))
-;;   (reduce (partial apply assoc) {} (filter (fn [[k v]] (pred v)) map)))
 (defn search-moves
-"Returns a subcollection of all hardcoded moves with the given
+"Returns a subcollection of all hardcoded moves with the
-attributes. Attributes consist of :name :power :accuracy :pp :fx-id
+given attributes. Attributes consist of :name :power
-(and also :fx-txt, but it contains the same information as :fx-id)"
+:accuracy :pp :fx-id
+(and also :fx-txt, but it contains the same information
+as :fx-id)"
 ([attribute-map]
-(search-moves com.aurellem.gb.gb-driver/original-rom attribute-map))
+(search-moves
+com.aurellem.gb.gb-driver/original-rom attribute-map))
 ([rom attribute-map]
-(filter-vals (partial submap? attribute-map) (hxc-move-data
+(filter-vals (partial submap? attribute-map)
-rom))))
+(hxc-move-data rom))))

Mercurial > vba-clojure