1 files changed, 4 insertions, 5 deletions

diff --git a/execs/Day05.hs b/execs/Day05.hs
index aae8f49..27397f7 100644
--- a/execs/Day05.hs
+++ b/execs/Day05.hs
@@ -1,12 +1,11 @@
 module Main where
 
 import Data.Char (digitToInt)
+import Utils (binaryToInt)
 
-doValidate = toInt . map readBin
-toInt = foldl (\a x -> a * 2 + digitToInt x) 0
-readBin 'F' = '0'
-readBin 'L' = '0'
-readBin _ = '1'
+doValidate = binaryToInt . map readBin
+readBin s | s `elem` "FL" = '0'
+          | otherwise = '1'
 
 main :: IO ()
 main = do