# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1512153670 18000
# Node ID 976d9874a0bb06d2c107aac95e3dea608efa6963
# Parent  e07421f643fec623d14f8c4a3a4a6a248443c1f1
Cleaner

diff -r e07421f643fe -r 976d9874a0bb src/main.lisp
--- a/src/main.lisp	Fri Dec 01 13:36:17 2017 -0500
+++ b/src/main.lisp	Fri Dec 01 13:41:10 2017 -0500
@@ -18,8 +18,8 @@
   (iterate
     (with data = (coerce (read-file-of-digits "data/2017/01-1") 'vector))
     (with length = (length data))
-    (with offset = (truncate length 2))
-    (for x :in-vector data :with-index i)
-    (for y = (aref data (mod (+ i offset) length)))
+    (for x :in-vector data)
+    (for iy :modulo length :from (truncate length 2))
+    (for y = (aref data iy))
     (when (= x y)
       (sum x))))