 
 (defn join-val [dict chiave valore]
   (let [v0 (conj (get-in dict [chiave]) valore)]
-    (assoc-in dict [chiave] v0)
-  ))
+    (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)))))
-
-
-
+          (for [rc (coordinate-gioco)]
+            (:tipo (get-in celle rc)))))
 
 (defn run-turno-gioco
   "Questo metodo è chiamato dal bottone"

      ; mangio un pesce
      (let [squalo-grasso (incrementa-energia animale)]
        (muovi-animale celle
            rc-pesce squalo-grasso
            [r c]    nil)

        )


      ; nulla da mangiare
      (let [nuovacella (nuovopunto [r c] (mossa-casuale))]
        (if (cella-vuota? celle nuovacella)
          (muovi-animale celle
              nuovacella squalo
              [r c]      nil)

          celle)))))









(defn mossa-casuale []
  (rand-nth DIREZIONI))

; defn animali
(defn crea-nuovo-pesce []
