 (defn fours [d1 d2 d3 d4 _5]
   (let [dice [d1 d2 d3 d4 _5]
         sum (apply +
-           (for [at (range 0 5)]
-             (if (= 4 (nth dice at)) 4 0)
-             )
-           )]
+                   (for [at (range 0 5)]
+                     (if (= 4 (nth dice at)) 4 0)
+                     )
+                   )]
     sum
     )
   )

                    (reduce +)
                    (* 2))]
    (if (= nil result) 0 result)))

;public static int yatzy(int... dice)
;{
; int[] counts = new int[6];
;    for (int die : dice)
;    counts[die-1]++;
; for (int i = 0; i != 6; i++)
;    if (counts[i] == 5)
;        return 50;
; return 0;
; }



(defn get-first-tally [tallies value]
  (->> (range 0 6)
       (filter #(= value (nth tallies %)))
       (first)))

(defn four-of-a-kind [dice]
  (let [tallies (tally-die dice)

(defn fives_ [d1 d2 d3 d4 _5]
  (let [dice [d1 d2 d3 d4 _5]
        s (apply +
                 (for [i (range 0 (count dice))]
                   (if (= 5 (nth dice i)) 5 0)
                   )
                 )]
    s
    )
  )
