Code Submission Evaluation System Login

Datatähti 2016 alku

Start:2015-09-28 00:00:00
End:2015-10-12 00:00:00
 

Tasks | Scoreboard | Statistics


CSES - Datatähti 2016 alku - Results
History
2015-10-10 19:06:2311
2015-10-10 19:04:150
2015-10-05 22:10:410
2015-10-05 21:46:120
2015-10-05 21:06:370
2015-10-05 20:43:5611
2015-10-02 20:40:240
2015-09-30 14:29:2611
2015-09-29 23:23:530
2015-09-29 23:20:180
2015-09-29 21:41:2011
2015-09-29 19:24:3611
2015-09-28 23:48:0711
2015-09-28 22:32:550
2015-09-28 21:36:080
2015-09-28 21:12:140
2015-09-28 21:08:440
2015-09-28 21:06:350
Task:Bittipeli
Sender:juhoh
Submission time:2015-10-10 19:06:23
Language:Haskell
Status:READY
Score:11

Feedback

groupverdictscore
#1ACCEPTED11
#2WRONG ANSWER0
#3WRONG ANSWER0
#4TIME LIMIT EXCEEDED0

Test results

testverdicttime (s)group
#1ACCEPTED0.05 / 1.001details
#2ACCEPTED0.05 / 1.001details
#3ACCEPTED0.05 / 1.001details
#4ACCEPTED0.05 / 1.001details
#5ACCEPTED0.05 / 1.001details
#6ACCEPTED0.06 / 1.001details
#7ACCEPTED0.05 / 1.001details
#8ACCEPTED0.06 / 1.001details
#9ACCEPTED0.06 / 1.001details
#10ACCEPTED0.05 / 1.001details
#11ACCEPTED0.06 / 1.001details
#12ACCEPTED0.05 / 1.001details
#13ACCEPTED0.05 / 1.001details
#14ACCEPTED0.06 / 1.001details
#15ACCEPTED0.06 / 1.001details
#16ACCEPTED0.05 / 1.001details
#17ACCEPTED0.06 / 1.001details
#18ACCEPTED0.05 / 1.001details
#19ACCEPTED0.06 / 1.001details
#20ACCEPTED0.06 / 1.001details
#21ACCEPTED0.06 / 1.002details
#22ACCEPTED0.06 / 1.002details
#23WRONG ANSWER0.05 / 1.002details
#24ACCEPTED0.05 / 1.002details
#25ACCEPTED0.05 / 1.002details
#26ACCEPTED0.05 / 1.002details
#27ACCEPTED0.05 / 1.002details
#28ACCEPTED0.06 / 1.002details
#29ACCEPTED0.05 / 1.002details
#30ACCEPTED0.06 / 1.002details
#31ACCEPTED0.06 / 1.002details
#32ACCEPTED0.05 / 1.002details
#33ACCEPTED0.06 / 1.002details
#34WRONG ANSWER0.05 / 1.002details
#35ACCEPTED0.04 / 1.002details
#36ACCEPTED0.05 / 1.002details
#37ACCEPTED0.01 / 1.002details
#38ACCEPTED0.05 / 1.002details
#39ACCEPTED0.05 / 1.002details
#40ACCEPTED0.05 / 1.002details
#41ACCEPTED0.05 / 1.003details
#42ACCEPTED0.06 / 1.003details
#43ACCEPTED0.06 / 1.003details
#44ACCEPTED0.05 / 1.003details
#45ACCEPTED0.06 / 1.003details
#46ACCEPTED0.05 / 1.003details
#47ACCEPTED0.05 / 1.003details
#48ACCEPTED0.05 / 1.003details
#49ACCEPTED0.05 / 1.003details
#50ACCEPTED0.05 / 1.003details
#51ACCEPTED0.06 / 1.003details
#52ACCEPTED0.05 / 1.003details
#53ACCEPTED0.05 / 1.003details
#54ACCEPTED0.05 / 1.003details
#55ACCEPTED0.07 / 1.003details
#56ACCEPTED0.37 / 1.003details
#57ACCEPTED0.35 / 1.003details
#58ACCEPTED0.28 / 1.003details
#59ACCEPTED0.66 / 1.003details
#60WRONG ANSWER0.21 / 1.003details
#61ACCEPTED0.05 / 1.004details
#62ACCEPTED0.05 / 1.004details
#63ACCEPTED0.06 / 1.004details
#64ACCEPTED0.05 / 1.004details
#65ACCEPTED0.05 / 1.004details
#66ACCEPTED0.06 / 1.004details
#67ACCEPTED0.05 / 1.004details
#68ACCEPTED0.05 / 1.004details
#69ACCEPTED0.05 / 1.004details
#70ACCEPTED0.06 / 1.004details
#71ACCEPTED0.06 / 1.004details
#72ACCEPTED0.06 / 1.004details
#73ACCEPTED0.06 / 1.004details
#74ACCEPTED0.06 / 1.004details
#75ACCEPTED0.05 / 1.004details
#76TIME LIMIT EXCEEDED-- / 1.004details
#77TIME LIMIT EXCEEDED-- / 1.004details
#78TIME LIMIT EXCEEDED-- / 1.004details
#79TIME LIMIT EXCEEDED-- / 1.004details
#80TIME LIMIT EXCEEDED-- / 1.004details

Compiler report

input/code.hs:3:1: Warning:
    The import of `Data.Maybe' is redundant
      except perhaps to import instances from `Data.Maybe'
    To import instances alone, use: import Data.Maybe()

input/code.hs:6:1: Warning:
    The import of `Debug.Trace' is redundant
      except perhaps to import instances from `Debug.Trace'
    To import instances alone, use: import Debug.Trace()

input/code.hs:17:1: Warning: Defined but not used: spread'

input/code.hs:22:1: Warning: Defined but not used: `spread'

Code

import Data.List
import Data.Char
import Data.Maybe
import Data.Ord

import Debug.Trace (trace)

type Group = Int
type State = [Group]
type Move = Int
type Solution = [Move]

isBig :: Group -> Bool
isBig = (<) 1

spread' :: [Int] -> [Int]
spread' [] = []
spread' (a:b:xs) = (a:spread' (max b (a-1):xs))
spread' single = single

spread :: [Int] -> [Int]
spread list = spread' $ reverse $ spread' $ reverse list

isSolved :: Solution -> Bool
isSolved solution = all (>0) solution

solvingPlan :: State -> State
solvingPlan state = map check indexedState
  where
    check (_, 1) = 0
    check (i, _) = (min (i-0) (len-1-i)) + 1
    indexedState = zip [0..] state
    len = length state

makeMove :: State -> Move -> State
makeMove [_] _ = []
makeMove state index = j' ++ (n:k')
  where
    j = take index state
    j' = take (index - 1) j
    k = drop (index + 1) state
    k' = drop 1 k
    f [] _ = 0
    f list fn = fn list
    n = (f j last) + (f k head)

ll :: [Move] -> (Group -> Bool) -> State -> [Move]
ll _ _ [] = []
ll moves fn (x:xs) | fn x = head moves:ll (drop 1 moves) fn xs
                   | otherwise = (0:ll moves fn xs)

moveAt :: State -> Int -> Move
moveAt state at = (ll [1..] isBig state) !! at

step :: State -> (Move, State)
step [] = (0, [])
step state = (move, makeMove state index)
  where
    index = fst $ maximumBy (comparing snd) $ zip [0..] plan
    move = moveAt state index
    plan = solvingPlan state

solve :: State -> Solution
solve [] = []
solve [0] = []
solve state = move:(solve newState)
  where
    (move, newState) = step state

parseInput :: String -> State
parseInput input = map length $ group $ filter (not.isSpace) input

printSolution :: Maybe Solution -> IO ()
printSolution solution = putStrLn $ case solution of
  Just s ->
    (show $ length s) ++ "\n" ++ intercalate " " (map (show . (\x -> x)) $ s)
  Nothing ->
    "QAQ"

maybeSolve :: State -> Maybe Solution
maybeSolve state = if isSolved solution
                   then Just solution
                   else Nothing
  where solution = solve state

main :: IO ()
main = getLine >>= (printSolution.maybeSolve.parseInput)

Test details

Test 1

Group: 1

Verdict: ACCEPTED

input
1011001010

view   save

correct output
QAQ

view   save

user output
QAQ

view   save

Test 2

Group: 1

Verdict: ACCEPTED

input
0000001001

view   save

correct output
3
1 1 1 

view   save

user output
3
2 2 1

view   save

Test 3

Group: 1

Verdict: ACCEPTED

input
0111011100

view   save

correct output
3
2 1 1 

view   save

user output
3
2 1 1

view   save

Test 4

Group: 1

Verdict: ACCEPTED

input
0100100100

view   save

correct output
4
2 1 1 1 

view   save

user output
4
2 1 1 1

view   save

Test 5

Group: 1

Verdict: ACCEPTED

input
1110010110

view   save

correct output
4
2 1 1 1 

view   save

user output
4
3 2 2 1

view   save

Test 6

Group: 1

Verdict: ACCEPTED

input
1111110110

view   save

correct output
3
1 1 1 

view   save

user output
3
2 2 1

view   save

Test 7

Group: 1

Verdict: ACCEPTED

input
0011110001

view   save

correct output
3
1 2 1 

view   save

user output
3
3 2 1

view   save

Test 8

Group: 1

Verdict: ACCEPTED

input
0111111000

view   save

correct output
2
1 1 

view   save

user output
2
1 1

view   save

Test 9

Group: 1

Verdict: ACCEPTED

input
1111111100

view   save

correct output
2
1 1 

view   save

user output
2
2 1

view   save

Test 10

Group: 1

Verdict: ACCEPTED

input
1000010011

view   save

correct output
3
2 1 1 

view   save

user output
3
2 1 1

view   save

Test 11

Group: 1

Verdict: ACCEPTED

input
1101110000

view   save

correct output
3
1 1 1 

view   save

user output
3
2 2 1

view   save

Test 12

Group: 1

Verdict: ACCEPTED

input
1101101100

view   save

correct output
4
1 2 1 1 

view   save

user output
4
2 3 2 1

view   save

Test 13

Group: 1

Verdict: ACCEPTED

input
0100111110

view   save

correct output
3
1 1 1 

view   save

user output
3
1 1 1

view   save

Test 14

Group: 1

Verdict: ACCEPTED

input
1101001011

view   save

correct output
4
2 2 2 1 

view   save

user output
4
2 2 2 1

view   save

Test 15

Group: 1

Verdict: ACCEPTED

input
1110110010

view   save

correct output
4
1 2 1 1 

view   save

user output
4
3 2 2 1

view   save

Test 16

Group: 1

Verdict: ACCEPTED

input
0011011100

view   save

correct output
3
3 2 1 

view   save

user output
3
3 2 1

view   save

Test 17

Group: 1

Verdict: ACCEPTED

input
1100101011

view   save

correct output
QAQ

view   save

user output
QAQ

view   save

Test 18

Group: 1

Verdict: ACCEPTED

input
1101100111

view   save

correct output
3
2 2 1 

view   save

user output
3
2 2 1

view   save

Test 19

Group: 1

Verdict: ACCEPTED

input
0110000100

view   save

correct output
3
2 1 1 

view   save

user output
3
2 1 1

view   save

Test 20

Group: 1

Verdict: ACCEPTED

input
0000101000

view   save

correct output
QAQ

view   save

user output
QAQ

view   save

Test 21

Group: 2

Verdict: ACCEPTED

input
1110010100

view   save

correct output
QAQ

view   save

user output
QAQ

view   save

Test 22

Group: 2

Verdict: ACCEPTED

input
1110010000

view   save

correct output
3
2 1 1 

view   save

user output
3
2 2 1

view   save

Test 23

Group: 2

Verdict: WRONG ANSWER

input
1001101100

view   save

correct output
4
1 1 1 1 

view   save

user output
QAQ

view   save

Test 24

Group: 2

Verdict: ACCEPTED

input
0000000111

view   save

correct output
2
1 1 

view   save

user output
2
2 1

view   save

Test 25

Group: 2

Verdict: ACCEPTED

input
0011111110

view   save

correct output
2
2 1 

view   save

user output
2
2 1

view   save

Test 26

Group: 2

Verdict: ACCEPTED

input
1100101100

view   save

correct output
4
2 1 1 1 

view   save

user output
4
3 2 2 1

view   save

Test 27

Group: 2

Verdict: ACCEPTED

input
0111101110

view   save

correct output
3
2 1 1 

view   save

user output
3
2 1 1

view   save

Test 28

Group: 2

Verdict: ACCEPTED

input
0000011011

view   save

correct output
3
2 1 1 

view   save

user output
3
2 2 1

view   save

Test 29

Group: 2

Verdict: ACCEPTED

input
1110011101

view   save

correct output
3
3 2 1 

view   save

user output
3
3 2 1

view   save

Test 30

Group: 2

Verdict: ACCEPTED

input
0001011011

view   save

correct output
4
1 1 1 1 

view   save

user output
4
2 2 2 1

view   save

Test 31

Group: 2

Verdict: ACCEPTED

input
0010110011

view   save

correct output
4
1 1 1 1 

view   save

user output
4
2 2 2 1

view   save

Test 32

Group: 2

Verdict: ACCEPTED

input
0011100000

view   save

correct output
2
2 1 

view   save

user output
2
2 1

view   save

Test 33

Group: 2

Verdict: ACCEPTED

input
1110100110

view   save

correct output
4
1 1 1 1 

view   save

user output
4
2 2 2 1

view   save

Test 34

Group: 2

Verdict: WRONG ANSWER

input
0110110111

view   save

correct output
4
2 1 1 1 

view   save

user output
QAQ

view   save

Test 35

Group: 2

Verdict: ACCEPTED

input
1110110010

view   save

correct output
4
1 2 1 1 

view   save

user output
4
3 2 2 1

view   save

Test 36

Group: 2

Verdict: ACCEPTED

input
110011001100110011001010101010...
view   save

correct output
QAQ

view   save

user output
QAQ

view   save

Test 37

Group: 2

Verdict: ACCEPTED

input
110011001100110011001100101010...
view   save

correct output
QAQ

view   save

user output
QAQ

view   save

Test 38

Group: 2

Verdict: ACCEPTED

input
110011001100110011001100110011...
view   save

correct output
31
1 20 20 20 20 20 20 20 20 20 2...
view   save

user output
31
21 20 20 19 19 18 18 17 17 16 ...
view   save

Test 39

Group: 2

Verdict: ACCEPTED

input
010101010101010101010101010101...
view   save

correct output
48
2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ...
view   save

user output
48
2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ...
view   save

Test 40

Group: 2

Verdict: ACCEPTED

input
011010000011111011110000110011...
view   save

correct output
23
13 13 12 11 11 11 11 10 9 9 9 ...
view   save

user output
23
13 12 12 11 11 11 11 10 9 9 9 ...
view   save

Test 41

Group: 3

Verdict: ACCEPTED

input
0010101000

view   save

correct output
QAQ

view   save

user output
QAQ

view   save

Test 42

Group: 3

Verdict: ACCEPTED

input
0100010110

view   save

correct output
4
2 1 1 1 

view   save

user output
4
1 2 1 1

view   save

Test 43

Group: 3

Verdict: ACCEPTED

input
0100110110

view   save

correct output
4
2 1 1 1 

view   save

user output
4
2 1 1 1

view   save

Test 44

Group: 3

Verdict: ACCEPTED

input
1110000001

view   save

correct output
2
2 1 

view   save

user output
2
2 1

view   save

Test 45

Group: 3

Verdict: ACCEPTED

input
0001001110

view   save

correct output
3
2 2 1 

view   save

user output
3
2 2 1

view   save

Test 46

Group: 3

Verdict: ACCEPTED

input
0011100011

view   save

correct output
3
1 2 1 

view   save

user output
3
3 2 1

view   save

Test 47

Group: 3

Verdict: ACCEPTED

input
0100111100

view   save

correct output
3
1 1 1 

view   save

user output
3
1 1 1

view   save

Test 48

Group: 3

Verdict: ACCEPTED

input
0001001000

view   save

correct output
3
2 2 1 

view   save

user output
3
2 2 1

view   save

Test 49

Group: 3

Verdict: ACCEPTED

input
0100100010

view   save

correct output
4
2 1 1 1 

view   save

user output
4
2 1 1 1

view   save

Test 50

Group: 3

Verdict: ACCEPTED

input
1100101110

view   save

correct output
4
2 1 1 1 

view   save

user output
4
3 2 2 1

view   save

Test 51

Group: 3

Verdict: ACCEPTED

input
1000111011

view   save

correct output
3
2 1 1 

view   save

user output
3
2 1 1

view   save

Test 52

Group: 3

Verdict: ACCEPTED

input
1000111111

view   save

correct output
2
1 1 

view   save

user output
2
1 1

view   save

Test 53

Group: 3

Verdict: ACCEPTED

input
0110011100

view   save

correct output
3
2 1 1 

view   save

user output
3
2 1 1

view   save

Test 54

Group: 3

Verdict: ACCEPTED

input
0001000110

view   save

correct output
3
2 2 1 

view   save

user output
3
2 2 1

view   save

Test 55

Group: 3

Verdict: ACCEPTED

input
1110110010

view   save

correct output
4
1 2 1 1 

view   save

user output
4
3 2 2 1

view   save

Test 56

Group: 3

Verdict: ACCEPTED

input
110011001100110011001100110011...
view   save

correct output
QAQ

view   save

user output
QAQ

view   save

Test 57

Group: 3

Verdict: ACCEPTED

input
110011001100110011001100110011...
view   save

correct output
QAQ

view   save

user output
QAQ

view   save

Test 58

Group: 3

Verdict: ACCEPTED

input
110011001100110011001100110011...
view   save

correct output
1501
1 1000 1000 1000 1000 1000 100...
view   save

user output
1501
1001 1000 1000 999 999 998 998...
view   save

Test 59

Group: 3

Verdict: ACCEPTED

input
010101010101010101010101010101...
view   save

correct output
2498
2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ...
view   save

user output
2498
2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ...
view   save

Test 60

Group: 3

Verdict: WRONG ANSWER

input
011100011001011111111000010110...
view   save

correct output
1272
1 1 648 647 646 646 645 645 64...
view   save

user output
QAQ

view   save

Test 61

Group: 4

Verdict: ACCEPTED

input
1110101110

view   save

correct output
QAQ

view   save

user output
QAQ

view   save

Test 62

Group: 4

Verdict: ACCEPTED

input
0111001011

view   save

correct output
4
2 1 1 1 

view   save

user output
4
2 1 2 1

view   save

Test 63

Group: 4

Verdict: ACCEPTED

input
1101111101

view   save

correct output
3
2 2 1 

view   save

user output
3
2 2 1

view   save

Test 64

Group: 4

Verdict: ACCEPTED

input
1001110001

view   save

correct output
3
2 1 1 

view   save

user output
3
2 1 1

view   save

Test 65

Group: 4

Verdict: ACCEPTED

input
1000000011

view   save

correct output
2
1 1 

view   save

user output
2
1 1

view   save

Test 66

Group: 4

Verdict: ACCEPTED

input
0100010111

view   save

correct output
4
1 1 1 1 

view   save

user output
4
1 1 2 1

view   save

Test 67

Group: 4

Verdict: ACCEPTED

input
0100111010

view   save

correct output
4
2 1 1 1 

view   save

user output
4
2 1 1 1

view   save

Test 68

Group: 4

Verdict: ACCEPTED

input
0010111101

view   save

correct output
4
1 1 1 1 

view   save

user output
4
2 2 2 1

view   save

Test 69

Group: 4

Verdict: ACCEPTED

input
0011111000

view   save

correct output
2
2 1 

view   save

user output
2
2 1

view   save

Test 70

Group: 4

Verdict: ACCEPTED

input
1101001101

view   save

correct output
4
2 2 2 1 

view   save

user output
4
2 2 2 1

view   save

Test 71

Group: 4

Verdict: ACCEPTED

input
0110111000

view   save

correct output
3
2 1 1 

view   save

user output
3
2 1 1

view   save

Test 72

Group: 4

Verdict: ACCEPTED

input
1100110111

view   save

correct output
3
3 2 1 

view   save

user output
3
3 2 1

view   save

Test 73

Group: 4

Verdict: ACCEPTED

input
1110011111

view   save

correct output
2
2 1 

view   save

user output
2
2 1

view   save

Test 74

Group: 4

Verdict: ACCEPTED

input
1011000101

view   save

correct output
4
2 1 1 1 

view   save

user output
4
2 1 1 1

view   save

Test 75

Group: 4

Verdict: ACCEPTED

input
1110110010

view   save

correct output
4
1 2 1 1 

view   save

user output
4
3 2 2 1

view   save

Test 76

Group: 4

Verdict: TIME LIMIT EXCEEDED

input
110011001100110011001100110011...
view   save

correct output
QAQ

view   save

user output
(empty)

Test 77

Group: 4

Verdict: TIME LIMIT EXCEEDED

input
110011001100110011001100110011...
view   save

correct output
QAQ

view   save

user output
(empty)

Test 78

Group: 4

Verdict: TIME LIMIT EXCEEDED

input
110011001100110011001100110011...
view   save

correct output
30001
1 20000 20000 20000 20000 2000...
view   save

user output
(empty)

Test 79

Group: 4

Verdict: TIME LIMIT EXCEEDED

input
010101010101010101010101010101...
view   save

correct output
49998
2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ...
view   save

user output
(empty)

Test 80

Group: 4

Verdict: TIME LIMIT EXCEEDED

input
111000110000011000001101010010...
view   save

correct output
25011
1 12471 12470 12469 12468 1246...
view   save

user output
(empty)