結果

問題 No.561 東京と京都
ユーザー Nobita GomuNobita Gomu
提出日時 2017-09-21 14:23:42
言語 F#
(F# 4.0)
結果
AC  
実行時間 337 ms / 2,000 ms
コード長 711 bytes
コンパイル時間 6,610 ms
コンパイル使用メモリ 207,964 KB
実行使用メモリ 34,904 KB
最終ジャッジ日時 2024-11-08 19:24:11
合計ジャッジ時間 14,808 ms
ジャッジサーバーID
(参考情報)
judge4 / judge2
このコードへのチャレンジ
(要ログイン)

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 333 ms
34,748 KB
testcase_01 AC 331 ms
34,876 KB
testcase_02 AC 335 ms
34,628 KB
testcase_03 AC 331 ms
34,876 KB
testcase_04 AC 334 ms
34,752 KB
testcase_05 AC 337 ms
34,748 KB
testcase_06 AC 334 ms
34,864 KB
testcase_07 AC 332 ms
34,580 KB
testcase_08 AC 334 ms
34,880 KB
testcase_09 AC 331 ms
34,748 KB
testcase_10 AC 332 ms
34,760 KB
testcase_11 AC 332 ms
34,876 KB
testcase_12 AC 319 ms
34,768 KB
testcase_13 AC 329 ms
34,904 KB
testcase_14 AC 330 ms
34,768 KB
testcase_15 AC 329 ms
34,768 KB
testcase_16 AC 330 ms
34,648 KB
testcase_17 AC 333 ms
34,768 KB
testcase_18 AC 331 ms
34,896 KB
testcase_19 AC 327 ms
34,768 KB
testcase_20 AC 332 ms
34,896 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.fsproj を復元しました (229 ms)。
MSBuild のバージョン 17.9.6+a4ecab324 (.NET)
  main -> /home/judge/data/code/bin/Release/net8.0/main.dll
  main -> /home/judge/data/code/bin/Release/net8.0/publish/

ソースコード

diff #

let f (s:string) =
    s.Split ' '
    |> Array.map int
    |> fun (a:int[]) -> (a.[0], a.[1])

type Buf = {
    mutable tm: int
    mutable km: int
    d: int
} with
    member this.max = max this.tm this.km
    member this.update(s:string) =
        let (tm, km) =
            s
            |> f
            |> fun (t:int, k:int) ->
                (t + (max this.tm (this.km - this.d)),
                 k + (max (this.tm - this.d) this.km))
        this.tm <- tm
        this.km <- km

let (n, d) = stdin.ReadLine () |> f
let (t, k) = stdin.ReadLine () |> f
let b:Buf = { tm = t; km = k - d; d = d }

seq { for _ in 1..n-1 -> stdin.ReadLine () }
    |> Seq.iter (fun s -> b.update(s))

b.max |> printfn "%d"
0