Sven/AoC
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changes

Browse source
This commit is contained in:
Sven Weidauer 2021-12-03 22:18:59 +01:00
parent 609cf69d40
commit 8798f1b1e4
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
day3.hs
View file

@ -1023,13 +1023,11 @@ count pos (zero, one) num = case num !! pos of
'0' -> (zero + 1, one)
'1' -> (zero, one + 1)
_ -> (zero, one)
gammaBit (zero, one)
| zero > one = False
| otherwise = True
bitsAt :: Foldable t => t [Char] -> Int -> (Bool, Bool)
bitsAt input pos = bits $ foldl (count pos) (0, 0) input
where bits a = (gammaBit a, not $ gammaBit a)
where bits (zero, one) = (zero <= one, zero > one)
toNumber :: Foldable t => t Bool -> Int