Clean: use mod in neighbors fun to be nicer

1 files changed, 7 insertions, 6 deletions

diff --git a/mafia.org b/mafia.org
index 6ea93a9..8313615 100644
--- a/mafia.org
+++ b/mafia.org
@@ -239,12 +239,13 @@ the list and see if the target is the killer.
 
 #+name: neighbors
 #+begin_src emacs-lisp
-  (defun neighbors (e lst)
-    (let* ((idx (seq-position lst e))
-           (last-idx (1- (length lst)))
-           (left (if (zerop idx) last-idx (1- idx)))
-           (right (if (= idx last-idx) 0 (1+ idx))))
-      (list (elt lst left) (elt lst right))))
+    (defun neighbors (e lst)
+      (let* ((idx (cl-position e lst))
+             (len (length lst))
+             (left (elt lst (mod (1- idx) len)))
+             (right (elt lst (mod (1+ idx) len))))
+
+        (list left right)))
 #+end_src
 
 #+name: being-watched?