Scaffold p2

Author: mnvr

05.hs

@@ -1,9 +1,10 @@
 import Text.Parsec
 import Text.Parsec.String (Parser)
 import Control.Monad (void)
+import Control.Applicative (liftA2)
 
 main :: IO ()
-main = interact $ (++ "\n") . show . p1 . parseAlmanac
+main = interact $ (++ "\n") . show . liftA2 (,) p1 p2 . parseAlmanac
 
 data Almanac = Almanac { seeds :: [Int], maps :: [RangesMap] } deriving Show
 type RangesMap = [RangeMap]
@@ -70,3 +71,7 @@ mapRangeMap RangeMap { destinationRange, sourceRange, rangeLength } s =
 p1 Almanac { seeds, maps } = xsmin $ fmap (rtraverse maps) seeds
 
 xsmin xs = foldl1 min xs
+
+p2 al = p1 $ al { seeds = expand (seeds al) }
+
+expand seeds = seeds