Inversions

input/code.hs:1:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature: main :: IO ()

input/code.hs:10:1: warning: [-Wmissing-signatures]
    Top-level binding with no type signature:
      compar :: (Eq a1, Num a) => [a1] -> [a1] -> a

main = do
    input <- getLine
    print $ solve input
 
solve :: String -> Integer
solve x = min (compar x a) (compar x b) where
    a = '0' : '1' : a
    b = '1' : a
 
compar a b =
    sum $ map (\x -> if x then 0 else 1)$ zipWith (==) a b

Test 1

Verdict: ACCEPTED

Test 2

Verdict: ACCEPTED

Test 3

Verdict: ACCEPTED

Test 4

Verdict: ACCEPTED

Test 5

Verdict: ACCEPTED