diff options
Diffstat (limited to 'execs/Day05.hs')
| -rw-r--r-- | execs/Day05.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/execs/Day05.hs b/execs/Day05.hs index a47c024..40965ec 100644 --- a/execs/Day05.hs +++ b/execs/Day05.hs | |||
| @@ -1,8 +1,8 @@ | |||
| 1 | module Main where | 1 | module Main where |
| 2 | 2 | ||
| 3 | import Data.Char (digitToInt) | 3 | import Data.Char (digitToInt) |
| 4 | import Data.List (sort) | 4 | import Data.List (sort) |
| 5 | import Utils (binaryToInt) | 5 | import Utils (binaryToInt) |
| 6 | 6 | ||
| 7 | doValidate = binaryToInt . map readBin | 7 | doValidate = binaryToInt . map readBin |
| 8 | readBin s | s `elem` "FL" = '0' | 8 | readBin s | s `elem` "FL" = '0' |