check math on updown cyclic modulation

dgtized · Sep 27, 2024 · dcd6766 · dcd6766
1 parent 5e259b6
commit dcd6766
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/shimmers/scratch/modulus.cljs b/src/shimmers/scratch/modulus.cljs
@@ -8,4 +8,11 @@
         p (range 2 6)]
     [[s p]
      (mapv (fn [x] (mod (+ s (mod x p)) 8)) (range 8))
-     (mapv (fn [x] (mod (+ s (mod (- p 1 x) p)) 8)) (range 8))]))
+     (mapv (fn [x] (mod (+ s (mod (- p 1 x) p)) 8)) (range 8))])
+
+  ;; updown cyclic
+  (for [n [3 4 5]]
+    (for [x (range 16)]
+      [(mod x n)
+       (let [m (mod x (- (* 2 n) 2))]
+         (if (< m n) m (- (* 2 n) 2 m)))])))