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

uncommented and spruced up pprinting convenience functions in core

Browse Source
This commit is contained in:
Richard Harrington 2013-08-16 23:49:03 -04:00
parent 5892d6ad89
commit 659898494e
1 changed files with 20 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
src/robotwar/core.clj
View File

@ -33,29 +33,23 @@
; Very convenient.
;(def pprint-robot
; (fn [robot & reg-keys]
; (let [{{registers :registers, {instrs :instrs} :obj-code} :brain :as robot} robot
; registers-to-print (if reg-keys
; (select-keys registers reg-keys)
; registers)]
; (pprint
; (assoc-in
; (assoc-in robot [:brain :registers] registers-to-print)
; [:brain :obj-code :instrs]
; (sort (zipmap (range) instrs)))))))
;
;(def pprint-robot-in-world
; (fn [world robot-idx & reg-keys]
; (apply pprint-robot (get-in world [:robots robot-idx]) reg-keys)))
;
;(def pprint-robot-at-world-tick
; (fn [worlds world-tick-idx robot-idx & reg-keys]
; (apply pprint-robot-in-world
; (world/get-world world-tick-idx robot-idx worlds)
; robot-idx
; reg-keys)))
;
;(def ppr pprint-robot)
;(def pprw pprint-robot-in-world)
;(def pprwt pprint-robot-at-world-tick)
(def pprint-robot
(fn [robot & reg-keys]
(let [{{registers :registers, {instrs :instrs} :obj-code} :brain :as robot} robot
registers-to-print (if reg-keys
(select-keys registers reg-keys)
registers)]
(pprint
(assoc-in
(assoc-in robot [:brain :registers] registers-to-print)
[:brain :obj-code :instrs]
(sort (zipmap (range) instrs)))))))
(def pprint-robot-at-combined-world
(fn [combined-worlds world-idx robot-idx & reg-keys]
(apply pprint-robot
(get-in (nth combined-worlds world-idx) [:robots robot-idx])
reg-keys)))
(def ppr pprint-robot)
(def pprw pprint-robot-at-combined-world)