Code Submission Evaluation System Login

HIIT Open 2018

Start:2018-05-26 11:00:00
End:2018-05-26 16:00:00
 

Tasks | Messages | Scoreboard | Statistics


CSES - HIIT Open 2018 - Results
History
2018-05-26 11:40:46
Task:Inversions
Sender:Puhi~
Submission time:2018-05-26 11:40:46
Language:Haskell
Status:READY
Result:ACCEPTED

Test results

testverdicttime (s)
#1ACCEPTED0.26 / 1.00details
#2ACCEPTED0.27 / 1.00details
#3ACCEPTED0.28 / 1.00details
#4ACCEPTED0.29 / 1.00details
#5ACCEPTED0.31 / 1.00details

Compiler report

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

Code

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 details

Test 1

Verdict: ACCEPTED

input
000000000000000000000000000000...
view   save

correct output
500000
view   save

user output
500000
view   save

Test 2

Verdict: ACCEPTED

input
111111111111111111111111111111...
view   save

correct output
500000
view   save

user output
500000
view   save

Test 3

Verdict: ACCEPTED

input
010101010101010101010101010101...
view   save

correct output
0
view   save

user output
0
view   save

Test 4

Verdict: ACCEPTED

input
101010101010101010101010101010...
view   save

correct output
0
view   save

user output
0
view   save

Test 5

Verdict: ACCEPTED

input
110101011010110100100111110110...
view   save

correct output
499476
view   save

user output
499476
view   save