   (first (drop-while #(= nil %) (solve gem-array))))
 
 (defn solve
-  "puikula"
   [gem-array]
   (map-indexed
     (fn [colIdx col]

      (get-in gem-array [x (+ y 1)])
      gem-type))))

(def testArray
  [[:ruby        :opal     :ruby       :diamond    :topaz    :amethyst   :sapphire :sapphire]
   [:ruby        :diamond  :amethyst   :diamond    :opal     :smaragdine :sapphire :smaragdine]
   [:topaz       :diamond  :smaragdine :topaz      :opal     :diamond    :amethyst :ruby]
   [:sapphire    :opal     :sapphire   :topaz      :sapphire :smaragdine :ruby     :ruby]
   [:amethyst    :opal     :diamond    :smaragdine :amethyst :ruby       :opal     :opal]
   [:topaz       :amethyst :amethyst   :smaragdine :amethyst :topaz      :sapphire :amethyst]
   [:smaragdine  :topaz    :opal       :opal       :sapphire :ruby       :amethyst :sapphire]
   [:amethyst    :sapphire :diamond    :amethyst   :diamond  :topaz      :opal     :opal]])

(getFirst testArray)

      :else nil)))


(defn would-match [y x gem-type gem-array]
  (and (not (= gem-type nil))
  (or
