and a larger range

dgtized · Aug 26, 2024 · 7c7203d · 7c7203d
1 parent daa8432
commit 7c7203d
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/shimmers/scratch/modulus.cljs b/src/shimmers/scratch/modulus.cljs
@@ -4,8 +4,8 @@
   (for [x (range 10)]
     [x (mod x 5) (mod (- 5 x) 5)])
 
-  (for [s (range 3)
-        p (range 2 5)]
+  (for [s (range 4)
+        p (range 2 6)]
     [[s p]
-     (mapv (fn [x] (mod (+ s (mod x p)) 5)) (range 5))
-     (mapv (fn [x] (mod (+ s (mod (- p x) p)) 5)) (range 5))]))
+     (mapv (fn [x] (mod (+ s (mod x p)) 8)) (range 8))
+     (mapv (fn [x] (mod (+ s (mod (- p 1 x) p)) 8)) (range 8))]))