Submission #3278946

---

Source Code Expand

import Data.List
import qualified Data.Map as Map
import qualified Data.Set as Set

f :: String ->(Int,Int)
f xs=let (a:b:c:d:t:e:f:g:h:[])=xs
         hh1=f5 a b
         mm1=f5 c d
         hh2=f5 e f
         mm2=f5 g h
     in (f3 hh1 mm1,f4 hh2 (mm2+4))

f2 ::(Int,Int)->(Int,Int)
f2 (a,b)
   |a<=b=(a,b)
   |otherwise=(a,2400)

f3::Int->Int->Int
f3 hh mm=hh*100+(mm `div` 5)*5

f4 :: Int->Int->Int
f4 hh mm
   |mm>=60=(hh+1)*100+0
   |otherwise=hh*100 + (mm `div` 5)*5

f5 :: Char ->Char ->Int
f5 hh mm=(read (hh:[])::Int)*10+(read (mm:[])::Int)

f6::Int->String
f6 n=let a=n `div` 100
         b=n `mod` 100
         a1=if a<10 then "0"++(show a) else (show a)
         b1=if b<10 then "0"++(show b) else (show b)
     in a1++b1 

f7 ::(Int,Int)->String
f7 (a,b)=(f6 a)++"-"++(f6 b)

g ::Int->Int->Int->Int->[(Int,Int)]->Map.Map Int Int->[(Int,Int)]->[(Int,Int)]
g 24 1 _ _ _ _ ans=ans
g _ _ _ old [] ms ans=if Map.size ms==0 then ans else ((old,maximum (Map.keys ms)):ans)
g hh 60 c old xs ms ans= g (hh+1) 0 c old xs ms ans
g hh mm c old xs3@((x,y):xs) ms ans
       |(hh*100+mm)==x=let ms2 = if Map.lookup y ms==Nothing then (Map.insert y 1 ms) else Map.insertWith (+) y 1 ms
                           c2=c+1
                      in if c2==1 then g hh mm c2 x xs ms2 ans else g hh mm c2 old xs ms2 ans
       |not (Nothing==Map.lookup (hh*100+mm) ms)=let t1=hh*100+mm
                                                     (Just dell)=Map.lookup t1 ms
                                                     c2=c-dell
                                                     ms2=Map.delete t1 ms
                                               in if c2==0 then g hh mm c2 (-1) xs3 ms2 ((old,t1):ans) else g hh mm c2 old xs3 ms2 ans
       |otherwise=g hh (mm+1) c old xs3 ms ans


main = do
       a<-getLine
       xs<-getContents
       let ys=Set.toList $ Set.fromList $ map f2 $ map f $ lines xs
           ms=Map.fromList [((-1)::Int,0::Int)]
           ans=reverse $ g 0 0 0 (-1) ys ms []
       mapM_ putStrLn $ map f7 ans

Submission Info

Judge Result