Todying

diff --git a/advent08/Main.hs b/advent08/Main.hs
index 6e5c4195adfcd92d9482fec441d4a31c62ba52e2..55a5f14bc01644d03da60fce2d3a72e9cbfdfe56 100644 (file)
--- a/advent08/Main.hs
+++ b/advent08/Main.hs
@@ -14,12 +14,33 @@ import qualified Data.Set as S
 data Display = Display [String] [String] -- patterns, output
   deriving (Eq, Show)
 
+data Segment = Seg1 | Seg2 | Seg3 | Seg4 | Seg5 | Seg6 | Seg7  
+  deriving (Eq, Ord, Show, Enum, Bounded)
+
 type Encoding = M.Map Char Segment
 type DigitSegments = M.Map (S.Set Segment) Char
 
-data Segment = Seg1 | Seg2 | Seg3 | Seg4 | Seg5 | Seg6 | Seg7  
-  deriving (Eq, Ord, Show, Enum, Bounded)
-  
+-- some constants
+segmentNames :: [Char]
+segmentNames = "abcdefg"
+
+segments :: [Segment]
+segments = [Seg1 .. Seg7]
+
+digitSegments :: DigitSegments
+digitSegments = M.fromList
+  [ (S.fromList [Seg1, Seg2, Seg3, Seg5, Seg6, Seg7], '0')
+  , (S.fromList [Seg3, Seg6], '1')
+  , (S.fromList [Seg1, Seg3, Seg4, Seg5, Seg7], '2')
+  , (S.fromList [Seg1, Seg3, Seg4, Seg6, Seg7], '3')
+  , (S.fromList [Seg2, Seg3, Seg4, Seg6], '4')
+  , (S.fromList [Seg1, Seg2, Seg4, Seg6, Seg7], '5')
+  , (S.fromList [Seg1, Seg2, Seg4, Seg5, Seg6, Seg7], '6')
+  , (S.fromList [Seg1, Seg3, Seg6], '7')
+  , (S.fromList [Seg1, Seg2, Seg3, Seg4, Seg5, Seg6, Seg7], '8')
+  , (S.fromList [Seg1, Seg2, Seg3, Seg4, Seg6, Seg7], '9')
+  ]
+
 
 main :: IO ()
 main = 
@@ -46,25 +67,7 @@ decodeOneDisplay :: Display -> Int
 decodeOneDisplay display = findCode allocation display
   where allocation = allocate display
 
-segmentNames :: [Char]
-segmentNames = "abcdefg"
 
-segments :: [Segment]
-segments = [Seg1 .. Seg7]
-
-digitSegments :: DigitSegments
-digitSegments = M.fromList
-  [ (S.fromList [Seg1, Seg2, Seg3, Seg5, Seg6, Seg7], '0')
-  , (S.fromList [Seg3, Seg6], '1')
-  , (S.fromList [Seg1, Seg3, Seg4, Seg5, Seg7], '2')
-  , (S.fromList [Seg1, Seg3, Seg4, Seg6, Seg7], '3')
-  , (S.fromList [Seg2, Seg3, Seg4, Seg6], '4')
-  , (S.fromList [Seg1, Seg2, Seg4, Seg6, Seg7], '5')
-  , (S.fromList [Seg1, Seg2, Seg4, Seg5, Seg6, Seg7], '6')
-  , (S.fromList [Seg1, Seg3, Seg6], '7')
-  , (S.fromList [Seg1, Seg2, Seg3, Seg4, Seg5, Seg6, Seg7], '8')
-  , (S.fromList [Seg1, Seg2, Seg3, Seg4, Seg6, Seg7], '9')
-  ]
 
 allocate :: Display -> Encoding
 allocate (Display examples _) = head $ validEncodings
@@ -90,8 +93,6 @@ findDigits encoding codes = map (findDigit encoding) codes
 findCode :: Encoding -> Display -> Int
 findCode encoding (Display _ codes) = read $ findDigits encoding codes
 
-
-
 -- Parse the input file
 
 displaysP = displayP `sepBy` endOfLine