From 5161a181b0b287a1667faa43ace3bbfdb8d38f5e Mon Sep 17 00:00:00 2001 From: Thomas Fitzsimmons Date: Sun, 22 Nov 2020 19:11:10 -0500 Subject: Fix some indentation --- slime-volleyball.el | 54 ++++++++++++++++++++++++++--------------------------- 1 file changed, 27 insertions(+), 27 deletions(-) diff --git a/slime-volleyball.el b/slime-volleyball.el index a65a5c6..7bda35f 100644 --- a/slime-volleyball.el +++ b/slime-volleyball.el @@ -223,7 +223,7 @@ ;; Arguments are expected values of moves. (defun slime-volleyball-training-maximum-expected-value - (left right jump stop none) + (left right jump stop none) "Calculate expected reward, based on LEFT, RIGHT, JUMP, STOP and NONE values." (let* ((max-val (max left right jump stop none)) (max-list nil) (rand-max nil) (index 0)) @@ -235,32 +235,32 @@ ;; (3 slime-volleyball-slime-stop) ;; (4 slime-volleyball-slime-none)) ;; (random 3)) - (dolist (check (list left right jump stop none)) - (when (< (abs (- check max-val)) 0.001) - (push (list index - (elt (list 'slime-volleyball-slime-left - 'slime-volleyball-slime-right - 'slime-volleyball-slime-jump - 'slime-volleyball-slime-stop - 'slime-volleyball-slime-none) - index)) max-list)) - (setq index (1+ index))) - (when (> (length max-list) 1) - (setq rand-max (elt max-list (random (length max-list))))) - (cond - (rand-max rand-max) - ((< (abs (- left max-val)) 0.001) - '(0 slime-volleyball-slime-left)) - ((< (abs (- right max-val)) 0.001) - '(1 slime-volleyball-slime-right)) - ((< (abs (- jump max-val)) 0.001) - '(2 slime-volleyball-slime-jump)) - ((< (abs (- stop max-val)) 0.001) - '(3 slime-volleyball-slime-stop)) - ((< (abs (- none max-val)) 0.001) - '(4 slime-volleyball-slime-none))) - ;;) -)) + (dolist (check (list left right jump stop none)) + (when (< (abs (- check max-val)) 0.001) + (push (list index + (elt (list 'slime-volleyball-slime-left + 'slime-volleyball-slime-right + 'slime-volleyball-slime-jump + 'slime-volleyball-slime-stop + 'slime-volleyball-slime-none) + index)) max-list)) + (setq index (1+ index))) + (when (> (length max-list) 1) + (setq rand-max (elt max-list (random (length max-list))))) + (cond + (rand-max rand-max) + ((< (abs (- left max-val)) 0.001) + '(0 slime-volleyball-slime-left)) + ((< (abs (- right max-val)) 0.001) + '(1 slime-volleyball-slime-right)) + ((< (abs (- jump max-val)) 0.001) + '(2 slime-volleyball-slime-jump)) + ((< (abs (- stop max-val)) 0.001) + '(3 slime-volleyball-slime-stop)) + ((< (abs (- none max-val)) 0.001) + '(4 slime-volleyball-slime-none))) + ;;) + )) ;; The following is from computer slime's perspective. ;; -- cgit v1.0