triboard.logic.transition-repl.cljs

;; Partitioning by owner of the board gives contiguous sequences
(let [first-line (map vector (repeat 0) (range 0 16))]
  (partition-by #(board/get-owner-at board %) first-line))

;; Contiguous sequences of coordinates
=>
(([0 0]) ([0 1] [0 2] [0 3] [0 4]) ([0 5])
 ([0 6]) ([0 7]) ([0 8] [0 9]) ([0 10])
 ([0 11] [0 12] [0 13] [0 14] [0 15]))

;; Making some windows out of it
(partition 3 1 *1)
=>
((([0 0]) ([0 1] [0 2] [0 3] [0 4]) ([0 5])) ;; First window
 (([0 1] [0 2] [0 3] [0 4]) ([0 5]) ([0 6])) ;; Second window
 (([0 5]) ([0 6]) ([0 7]))
 (([0 6]) ([0 7]) ([0 8] [0 9]))
 (([0 7]) ([0 8] [0 9]) ([0 10]))
 (([0 8] [0 9]) ([0 10]) ([0 11] [0 12] [0 13] [0 14] [0 15])))