                                  move-history
                                  n-iterations) move-history))
 
-;(time (next-move [] 2000))
-
+#_(time (next-move [] 2000))
+

(defn coll-to-bitfield [v]
  (reduce (fn [acc x]
            #?(:cljs (.or (.shiftLeft (Long. 1) x) acc)
               :clj (bit-set acc x))
            )
          (Long. 0)
          v

(ns montebot.connect4
  #?(:cljs (:import [goog.math Long]))
  (:require clojure.set))

#?(:clj (set! *warn-on-reflection* true))
#?(:cljs (enable-console-print!))

(defn initial-state []
  {:active   :p1
   :occupied []
   :p1       []
   :p2       []})

(def cols (vec (range 7)))

(def MAX_VALUE #?(:clj Long/MAX_VALUE :cljs js/Number.MAX_VALUE))

(defn highest-column [xs col]
  (let [max-col (filter #(= col (mod % 7)) xs)]
