diff options
| author | Thomas Fitzsimmons <fitzsim@fitzsim.org> | 2020-11-22 19:11:10 -0500 |
|---|---|---|
| committer | Thomas Fitzsimmons <fitzsim@fitzsim.org> | 2020-11-22 19:11:10 -0500 |
| commit | 5161a181b0b287a1667faa43ace3bbfdb8d38f5e (patch) | |
| tree | b217c5d11a9b92aa655b36f25c3b9c4102a672e0 | |
| parent | c7eba859d68755cf1c08bb6312268e6466300972 (diff) | |
Fix some indentation
| -rw-r--r-- | slime-volleyball.el | 54 |
1 files 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. ;; |