結果

問題 No.230 Splarraay ｽﾌﾟﾗﾚｪｰｲ
ユーザー pekempeypekempey
提出日時 2017-01-27 21:04:11
言語 F#
(F# 4.0)
結果
AC  
実行時間 644 ms / 5,000 ms
コード長 2,246 bytes
コンパイル時間 13,328 ms
コンパイル使用メモリ 189,556 KB
実行使用メモリ 62,080 KB
最終ジャッジ日時 2024-06-06 04:29:15
合計ジャッジ時間 19,507 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 343 ms
37,760 KB
testcase_01 AC 342 ms
37,756 KB
testcase_02 AC 342 ms
37,888 KB
testcase_03 AC 345 ms
37,504 KB
testcase_04 AC 343 ms
37,760 KB
testcase_05 AC 343 ms
37,888 KB
testcase_06 AC 362 ms
40,192 KB
testcase_07 AC 346 ms
37,888 KB
testcase_08 AC 354 ms
39,296 KB
testcase_09 AC 491 ms
50,048 KB
testcase_10 AC 504 ms
59,904 KB
testcase_11 AC 423 ms
45,312 KB
testcase_12 AC 481 ms
50,304 KB
testcase_13 AC 367 ms
40,704 KB
testcase_14 AC 436 ms
58,624 KB
testcase_15 AC 539 ms
58,752 KB
testcase_16 AC 587 ms
61,052 KB
testcase_17 AC 644 ms
62,080 KB
testcase_18 AC 502 ms
61,440 KB
testcase_19 AC 525 ms
52,224 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.fsproj を復元しました (301 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 # 

type Segtree() =
    let n = 1 <<< 17
    let dat = Array.zeroCreate (n * 2)
    let lz = Array.create (n * 2) -1

    member this.N with get() = n
    member this.Dat with get() = dat
    member this.Lazy with get() = lz

    member this.SetLazy k v s =
        this.Dat.[k] <- v * s
        this.Lazy.[k] <- v

    member this.Push k s =
        if this.Lazy.[k] <> -1 then
            this.SetLazy (k * 2 + 0) this.Lazy.[k] (s / 2)
            this.SetLazy (k * 2 + 1) this.Lazy.[k] (s / 2)
            this.Lazy.[k] <- -1

    member this.RecFill ql qr v k nl nr =
        if ql <= nl && nr <= qr then
            this.SetLazy k v (nr - nl)
        else
            let nm = (nl + nr) / 2
            this.Push k (nr - nl)
            if ql < nm then
                this.RecFill ql qr v (k * 2 + 0) nl nm
            if qr > nm then
                this.RecFill ql qr v (k * 2 + 1) nm nr
            this.Dat.[k] <- this.Dat.[k * 2] + this.Dat.[k * 2 + 1]

    member this.Fill ql qr v = this.RecFill ql qr v 1 0 this.N

    member this.RecSum ql qr k nl nr = 
        if ql <= nl && nr <= qr then
            this.Dat.[k]
        elif nr <= ql || qr <= nl then
            0
        else
            this.Push k (nr - nl)
            let nm = (nl + nr) / 2
            let vl = this.RecSum ql qr (k * 2 + 0) nl nm
            let vr = this.RecSum ql qr (k * 2 + 1) nm nr
            vl + vr

    member this.Sum ql qr = this.RecSum ql qr 1 0 this.N

let N = System.Console.ReadLine() |> int
let Q = System.Console.ReadLine() |> int

let segA = new Segtree()
let segB = new Segtree()

let mutable scoreA : int64 = 0L
let mutable scoreB : int64 = 0L

for _ in 1 .. Q do
    let x, l, r = System.Console.ReadLine().Split() |> Array.map int |> fun a -> a.[0], a.[1], a.[2]

    if x = 0 then
        let a = segA.Sum l (r + 1)
        let b = segB.Sum l (r + 1)
        if a > b then
            scoreA <- scoreA + int64(a)
        if a < b then
            scoreB <- scoreB + int64(b)
    elif x = 1 then
        segA.Fill l (r + 1) 1
        segB.Fill l (r + 1) 0
    else
        segA.Fill l (r + 1) 0
        segB.Fill l (r + 1) 1

scoreA <- scoreA + int64(segA.Sum 0 N)
scoreB <- scoreB + int64(segB.Sum 0 N)

printfn "%d %d" scoreA scoreB
0