Submission #6252371

---

Source Code Expand

import sequtils, strutils

let
  n = stdin.readline.parseInt
  ps = newSeqWith(n, stdin.readline.split('-').map(parseInt))
var
  rs: array[60*24 div 5 + 2, int]
  rainy = false

for p in ps:
  let
    s = (p[0] div 100 * 60 + p[0] mod 100) div 5
    e = (p[1] div 100 * 60 + p[1] mod 100 + 4) div 5
  inc(rs[s])
  dec(rs[e])

for i in 0..<(60*24 div 5):
  rs[i+1] += rs[i]
for i,r in rs:
  if not rainy and r>0:
    let
      h = ("0" & intToStr(i*5 div 60))[^2 .. ^1]
      m = ("0" & intToStr(i*5 mod 60))[^2 .. ^1]
    stdout.write(join([h, m, "-"], ""))
    rainy = true
  elif rainy and r<=0:
    let
      h = ("0" & intToStr(i*5 div 60))[^2 .. ^1]
      m = ("0" & intToStr(i*5 mod 60))[^2 .. ^1]
    stdout.write(join([h, m, "\n"], ""))
    rainy = false

Submission Info

Compile Error

Hint: system [Processing]
Hint: Main [Processing]
Hint: sequtils [Processing]
Hint: strutils [Processing]
Hint: parseutils [Processing]
Hint:  [Link]
Hint: operation successful (12959 lines compiled; 2.145 sec total; 14.148MB; Release Build) [SuccessX]

Judge Result