 (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)
-             )
-           )]
+                 (for [i (range 0 (count dice))]
+                   (if (= 5 (nth dice i)) 5 0)
+                   )
+                 )]
     s
     )
   )

(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)
             )
           )]
    sum
    )
  )

      0)))

(defn full-house [dice]
  (+
    (let [counts (tally-die dice)
          result (first
                   (remove nil?
                           (for [at (range 0 6)]
                             (if (>= (nth counts (- 6 at 1)) 2)
                               (* (- 6 at) 2)
                               nil
                               )
                             )
                           )
                   )]
      (if (= nil result) 0 result))
    (let [t (tally-die dice)
          result (first
                   (remove nil?
                           (for [i (range 0 6)]
                             (if (>= (nth t i) 3)
                               (* (+ i 1) 3)
                               nil
                               )
                             )
                           ))]
      (if (= nil result)
        0 result
        )
      )
    )
  )

