A basic 2d Cellular Automaton

cellular-automaton-2d.clj

;; https://brilliant.org/practice/cellular-automaton

(defn offset [x size]
    (map (fn [idx] (if (and (>= idx 0) (< idx size)) ind nil))
        [(- x 1) x (+ x 1)]))

(defn calc-cell [elems]
    (case (map #(or % false) elems)
        [true true true] true
        [true true false] false
        [true false true] true
        [true false false] false
        [false true true] true
        [false true false] false
        [false false true] true
        [false false false] false))

(defn next-state [cells]
    (vec (map-indexed (fn [ind el] ;; how to avoid calling vec as map creates a seq?
        (calc-cell
            (map #(get cells %) (offset ind (count cells)) ) )) cells)))

(def st (assoc (vec (repeat  21 false)) 10 true))

(next-state [false false false true false false false])