CSES - Datatähti 2021 alku

CSES - Datatähti 2021 alku - Results

Submission details
Task:	Alitaulukot
Sender:	ZakkeX
Submission time:	2020-10-07 12:38:17 +0300
Language:	Haskell
Status:	READY
Result:	0

Feedback
group	verdict	score
#1	RUNTIME ERROR	0
#2	RUNTIME ERROR	0
#3	RUNTIME ERROR	0

Test results
test	verdict	time	group
#1	RUNTIME ERROR	0.01 s	1, 2, 3	details
#2	RUNTIME ERROR	0.01 s	1, 2, 3	details
#3	RUNTIME ERROR	0.01 s	1, 2, 3	details
#4	RUNTIME ERROR	0.01 s	1, 2, 3	details
#5	RUNTIME ERROR	0.01 s	1, 2, 3	details
#6	RUNTIME ERROR	0.01 s	2, 3	details
#7	RUNTIME ERROR	0.01 s	2, 3	details
#8	RUNTIME ERROR	0.01 s	2, 3	details
#9	RUNTIME ERROR	0.01 s	2, 3	details
#10	RUNTIME ERROR	0.01 s	2, 3	details
#11	RUNTIME ERROR	0.03 s	3	details
#12	RUNTIME ERROR	0.03 s	3	details
#13	RUNTIME ERROR	0.04 s	3	details
#14	RUNTIME ERROR	0.14 s	3	details
#15	RUNTIME ERROR	0.14 s	3	details
#16	RUNTIME ERROR	0.08 s	3	details
#17	RUNTIME ERROR	0.08 s	3	details

Compiler report

input/code.hs:2:1: warning: [-Wincomplete-patterns]
    Pattern match(es) are non-exhaustive
    In an equation for `f': Patterns not matched: _ [] _
  |
2 | f maxDiff ((len, maxi):xs) new 
  | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...

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

input/code.hs:16:1: warning: [-Wtabs]
    Tab character found here, and in one further location.
    Please use spaces instead.
   |
16 |         maxDiff = read $ last $ words ln1 :: Int
   | ^^^^^^^^

Code

f :: Int -> [(Int, Int)] -> Int -> [(Int, Int)]
f maxDiff ((len, maxi):xs) new 
  | abs (new - maxi) <= maxDiff = (len + 1, max maxi new):xs
  | otherwise = (1, new):(len, maxi):xs

g :: Int -> Int
g i = (i + i * i) `div` 2

h :: [(Int, a)] -> Int
h x = foldr (+) 0 $ map g $ map fst x

main = do
    input <- getContents
    let ln1 = head $ lines input
        ln2 = last $ lines input
	maxDiff = read $ last $ words ln1 :: Int
	list = read $ show $ words ln2 :: [Int]
    print $ h $ foldl (f maxDiff) [] list

Test details

Test 1

Group: 1, 2, 3

Verdict: RUNTIME ERROR

input
`100 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ...` view save

correct output
`5050` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 2

Group: 1, 2, 3

Verdict: RUNTIME ERROR

input
`100 2 5 5 2 4 3 5 3 4 3 2 3 4 5 4 4 ...` view save

correct output
`317` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 3

Group: 1, 2, 3

Verdict: RUNTIME ERROR

input
`100 10 71 60 61 96 25 10 10 9 84 85 1...` view save

correct output
`119` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 4

Group: 1, 2, 3

Verdict: RUNTIME ERROR

input
`100 990000000 111122929 961821360 578238211 ...` view save

correct output
`4006` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 5

Group: 1, 2, 3

Verdict: RUNTIME ERROR

input
`100 1000000000 553190572 453407680 667300705 ...` view save

correct output
`5050` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 6

Group: 2, 3

Verdict: RUNTIME ERROR

input
`2000 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ...` view save

correct output
`2001000` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 7

Group: 2, 3

Verdict: RUNTIME ERROR

input
`2000 2 4 4 1 4 2 3 1 2 1 3 5 2 2 4 4 ...` view save

correct output
`6340` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 8

Group: 2, 3

Verdict: RUNTIME ERROR

input
`2000 10 65 88 33 88 41 10 17 38 22 3 8...` view save

correct output
`2413` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 9

Group: 2, 3

Verdict: RUNTIME ERROR

input
`2000 999000000 746120950 772769620 721488968 ...` view save

correct output
`1287776` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 10

Group: 2, 3

Verdict: RUNTIME ERROR

input
`2000 1000000000 621947980 510355354 756705418 ...` view save

correct output
`2001000` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 11

Group: 3

Verdict: RUNTIME ERROR

input
`100000 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ...` view save

correct output
`5000050000` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 12

Group: 3

Verdict: RUNTIME ERROR

input
`100000 2 3 3 1 3 3 1 1 5 1 2 5 4 1 3 1 ...` view save

correct output
`317066` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 13

Group: 3

Verdict: RUNTIME ERROR

input
`100000 10 10 3 6 3 43 60 5 48 15 27 86 4...` view save

correct output
`123292` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 14

Group: 3

Verdict: RUNTIME ERROR

input
`100000 999990000 460235639 963048588 47270983 3...` view save

correct output
`4946886742` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 15

Group: 3

Verdict: RUNTIME ERROR

input
`100000 1000000000 885457070 18257718 927615960 3...` view save

correct output
`5000050000` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 16

Group: 3

Verdict: RUNTIME ERROR

input
`100000 50000 1 2 3 4 5 6 7 8 9 10 11 12 13 ...` view save

correct output
`3750075000` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Test 17

Group: 3

Verdict: RUNTIME ERROR

input
`100000 50000 100000 99999 99998 99997 99996...` view save

correct output
`3750075000` view save

user output
(empty)

Error:

code: Prelude.read: no parse

Datatähti 2021 alku

Alitaulukot

Compiler report

Code

Test details

Test 1

Test 2

Test 3

Test 4

Test 5

Test 6

Test 7

Test 8

Test 9

Test 10

Test 11

Test 12

Test 13

Test 14

Test 15

Test 16

Test 17

Tasks

Submissions (ZakkeX)