Submission #2180629

---

Source Code Expand

open System
open System.Collections
open System.Collections.Generic
open System.IO
open System.Linq

[<AutoOpen>] 
module input =
    let Str()  = Console.ReadLine()
    let StrArr() = Str().Split()
    let IntArr() = StrArr() |> Array.map int
    let Int()  = Str() |> int
    let Int2() = 
        let t = IntArr()
        t.[0],t.[1]
    let Char() = Str() |> char
    let CharList()  = [ for c in Str() -> c ]
    let CharArray() = [|for c in Str() -> c|]

[<AutoOpen>] 
module parse =
    let c2s (c:obj) = 
        match c with
        | :? (char[])    as c -> new string(c)
        | :? (char list) as c -> c|>Array.ofList|>String
        | :?  char       as c -> c.ToString()
        | _ -> failwith ""
    let c2i c = c2s(c) |> int

[<EntryPoint>]
let main _ = 
    let mVal = 1000000
    let imos = Array.zeroCreate <| mVal+7

    let n = Int()

    for i in 1..n do 
        let f,t = Int2()
        imos.[f]  <-imos.[f]+1
        imos.[t+1]<-imos.[t+1]-1
    for i in 1..mVal do 
        imos.[i]<-imos.[i]+imos.[i-1]

    let ans = 
        imos 
        |> Array.max 
        |> printfn "%i"

    0
    

Submission Info

Judge Result