Submission #1225243

Source Code Expand

f 0 c _ _ = c
f _ _ _ [] = 1/0
f k c p (a:as)
  | p < a = f (k-1) c a as
  | otherwise = f k c p as `min` f (k-1) (c+p+1-a) (p+1) as
main = do
  [n,k] <- map read . words <$> getLine
  (a:as) <- map read . words <$> getLine
  print $ floor $ f (k-1) 0 a as

Submission Info

Submission Time
Task B - Buildings are Colorful!
User hillpeople
Language Haskell (GHC 7.10.3)
Score 350
Code Size 264 Byte
Status AC
Exec Time 2 ms
Memory 1020 KB

Judge Result

Set Name Sample Subtask1 Subtask2 Subtask3
Score / Max Score 0 / 0 120 / 120 90 / 90 140 / 140
Status
AC × 2
AC × 2
AC × 3
AC × 9
Set Name Test Cases
Sample sub0_in1.txt, sub0_in2.txt
Subtask1 sub1_in1.txt, sub1_in2.txt
Subtask2 sub2_in1.txt, sub2_in2.txt, sub2_in3.txt
Subtask3 sub0_in1.txt, sub0_in2.txt, sub1_in1.txt, sub1_in2.txt, sub2_in1.txt, sub2_in2.txt, sub2_in3.txt, sub3_in1.txt, sub3_in2.txt
Case Name Status Exec Time Memory
sub0_in1.txt AC 1 ms 508 KB
sub0_in2.txt AC 1 ms 508 KB
sub1_in1.txt AC 2 ms 636 KB
sub1_in2.txt AC 2 ms 1020 KB
sub2_in1.txt AC 1 ms 508 KB
sub2_in2.txt AC 1 ms 508 KB
sub2_in3.txt AC 1 ms 508 KB
sub3_in1.txt AC 2 ms 764 KB
sub3_in2.txt AC 2 ms 636 KB