結果

問題 No.230 Splarraay ｽﾌﾟﾗﾚｪｰｲ
ユーザー pekempey
提出日時 2017-01-27 21:04:11
言語 F#
(F# 4.0)
結果
AC  
実行時間 583 ms / 5,000 ms
コード長 2,246 bytes
コンパイル時間 14,998 ms
コンパイル使用メモリ 189,712 KB
実行使用メモリ 62,592 KB
最終ジャッジ日時 2024-12-23 15:54:32
合計ジャッジ時間 20,702 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 17
権限があれば一括ダウンロードができます
コンパイルメッセージ
  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.fsproj を復元しました (277 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