this repo has no description
1module Main where
2
3import Lib
4import Data.List.Split (splitOn)
5
6main :: IO ()
7main = do
8 inputStr <- readFile "input.txt"
9 -- part 1
10 -- let input = map (\s -> read s :: Int) . splitOn "," $ init inputStr
11 -- in print $ foldl (*) 1 $ take 2 $ processLengths input
12 -- part 2
13 let input = init inputStr
14 hash = denseHash $ sparseHash input
15 in print $ hash