結果

問題 No.561 東京と京都
ユーザー Nobita GomuNobita Gomu
提出日時 2017-09-21 14:23:42
言語 F#
(F# 4.0)
結果
AC  
実行時間 341 ms / 2,000 ms
コード長 711 bytes
コンパイル時間 6,716 ms
コンパイル使用メモリ 190,512 KB
実行使用メモリ 35,132 KB
最終ジャッジ日時 2024-04-26 06:28:54
合計ジャッジ時間 14,609 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 325 ms
34,752 KB
testcase_01 AC 325 ms
34,880 KB
testcase_02 AC 332 ms
34,620 KB
testcase_03 AC 329 ms
34,620 KB
testcase_04 AC 329 ms
35,132 KB
testcase_05 AC 334 ms
34,368 KB
testcase_06 AC 338 ms
34,872 KB
testcase_07 AC 341 ms
34,620 KB
testcase_08 AC 328 ms
34,748 KB
testcase_09 AC 329 ms
34,872 KB
testcase_10 AC 328 ms
34,752 KB
testcase_11 AC 331 ms
34,620 KB
testcase_12 AC 329 ms
34,888 KB
testcase_13 AC 332 ms
34,640 KB
testcase_14 AC 329 ms
34,880 KB
testcase_15 AC 328 ms
34,508 KB
testcase_16 AC 332 ms
34,644 KB
testcase_17 AC 333 ms
34,900 KB
testcase_18 AC 335 ms
34,896 KB
testcase_19 AC 335 ms
34,516 KB
testcase_20 AC 334 ms
34,764 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