Shortened pattern in petals.

barrucadu · Apr 10, 2012 · 78279da · 78279da
1 parent d08ab3e
commit 78279da
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/code/haskell/petals/petals.lhs b/code/haskell/petals/petals.lhs
@@ -20,12 +20,9 @@ list of dice rolls.
 > petals :: [Die] -> Int
 > petals [] = 0
 > petals (d:ds) = petals ds + case d of
->                               One   -> 0
->                               Two   -> 0
 >                               Three -> 2
->                               Four  -> 0
 >                               Five  -> 4
->                               Six   -> 0
+>                               _     -> 0
 
 Tying it all together
 ---------------------