Refactor 526989a41034285187000de4

Author: tbsklg

src/Kyu5/IpsBetween.hs

@@ -1,5 +1,6 @@
 module Kyu5.IpsBetween where
 
+import Data.Bits
 import Data.List.Split (splitOn)
 
 type Ipv4 = String
@@ -8,4 +9,4 @@ ipsBetween :: Ipv4 -> Ipv4 -> Int
 ipsBetween from to = to32Bit to - to32Bit from
 
 to32Bit :: Ipv4 -> Int
-to32Bit ip = foldl (\acc x -> acc * 256 + x) 0 $ map read $ splitOn "." ip
+to32Bit ip = foldl (\acc x -> acc `shiftL` 8 .|. x) 0 $ map read $ splitOn "." ip