natto1784/AoC2022
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

day 2: rewrite

Browse Source 
use Data.Text

Signed-off-by: Amneesh Singh <natto@weirdnatto.in>
This commit is contained in:
Amneesh Singh
2022-12-09 17:26:31 +05:30
parent 4ad59fb820
commit f0fc7f696f
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
day2.hs
View File

@@ -1,8 +1,12 @@
import Data.Text (Text)
import qualified Data.Text as T (lines, unpack)
import Lib (readFile')
-- we do not use a simple 9 value case cuz yeah -- we do not use a simple 9 value case cuz yeah
main :: IO () main :: IO ()
main = do main = do
choices <- parse <$> readFile "day2.in" choices <- parse <$> readFile' "day2.in"
putStr "Q1: " putStr "Q1: "
print $ q1 choices print $ q1 choices
putStr "Q2: " putStr "Q2: "
@@ -17,8 +21,8 @@ instance Ord Choice where
compare Scissors Rock = LT compare Scissors Rock = LT
compare _ _ = GT compare _ _ = GT
parse :: String -> [(Choice, Choice)] parse :: Text -> [(Choice, Choice)]
parse = map (\[x, _, y] -> (val x 'A', val y 'X')) . lines parse = map ((\[x, _, y] -> (val x 'A', val y 'X')) . T.unpack) . T.lines
score :: (Choice, Choice) -> Int score :: (Choice, Choice) -> Int
score (i, j) = 1 + fromEnum j + 3 * fromEnum (compare j i) score (i, j) = 1 + fromEnum j + 3 * fromEnum (compare j i)