   [n-items value]
   (vec (repeat n-items value)))
 
-
 (defn empty-playfield
   "Crea un campo da gioco vuoto; matrice w*h di elementi nil"
   [w h]
-  (buildrow h (buildrow w nil))
-)
+  (buildrow h (buildrow w nil)))
 
 (def TIPI-PESCI [:PESCE1 :PESCE2 :PESCE3])
 (def TIPI-SQUALI [:SQUALO1 :SQUALO2 :SQUALO3])

; - se energia < 0 muore

(defn pesce-adiacente? [rc celle]
  (let [celle-da-guardare (map #(nuovopunto rc %) [:SU :GIU :SX :DX :SUSX :GSX :SUDX :GDX])
        celle-con-pesci (filter #(cella-con-pesce? celle %) celle-da-guardare)
        ]
      (cond
        (pos? (count celle-con-pesci))  (rand-nth celle-con-pesci)
        :else                           nil

      )))


(defmethod avanza-animale :SQUALO


(defn join-val [dict chiave valore]
  (let [v0 (conj (get-in dict [chiave]) valore)]
    (assoc-in dict [chiave] v0)))

(defn conta-celle
  "Restituisce un hash con tutte le celle per tipo"
  [celle]
  (reduce #(update-in %1 [%2] inc) {:PESCE 0 :SQUALO 0}
          (for [rc (coordinate-gioco)]
            (:tipo (get-in celle rc)))))

(defn run-turno-gioco
  "Questo metodo è chiamato dal bottone"
