Submission #2180630


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

Submission Time
Task B - 価格の合計
User rui0422
Language F# (Mono 4.0)
Score 0
Code Size 1170 Byte
Status RE
Exec Time 22 ms
Memory 12768 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 0 / 100
Status
RE × 3
RE × 20
Set Name Test Cases
Sample subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt
All subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt, subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask1_14.txt, subtask1_15.txt, subtask1_16.txt, subtask1_17.txt
Case Name Status Exec Time Memory
subtask0_sample01.txt RE 21 ms 8672 KB
subtask0_sample02.txt RE 21 ms 8672 KB
subtask0_sample03.txt RE 22 ms 12768 KB
subtask1_01.txt RE 22 ms 12768 KB
subtask1_02.txt RE 22 ms 10720 KB
subtask1_03.txt RE 21 ms 10720 KB
subtask1_04.txt RE 21 ms 10720 KB
subtask1_05.txt RE 22 ms 12768 KB
subtask1_06.txt RE 21 ms 8672 KB
subtask1_07.txt RE 21 ms 10720 KB
subtask1_08.txt RE 21 ms 10720 KB
subtask1_09.txt RE 22 ms 10720 KB
subtask1_10.txt RE 22 ms 10720 KB
subtask1_11.txt RE 21 ms 8672 KB
subtask1_12.txt RE 21 ms 8672 KB
subtask1_13.txt RE 21 ms 8672 KB
subtask1_14.txt RE 22 ms 10720 KB
subtask1_15.txt RE 21 ms 8672 KB
subtask1_16.txt RE 21 ms 8672 KB
subtask1_17.txt RE 22 ms 12768 KB