結果

問題 No.606 カラフルタイル
ユーザー nebukuro09nebukuro09
提出日時 2017-12-08 14:47:55
言語 F#
(F# 4.0)
結果
AC  
実行時間 627 ms / 2,000 ms
コード長 1,112 bytes
コンパイル時間 10,994 ms
コンパイル使用メモリ 189,596 KB
実行使用メモリ 67,748 KB
最終ジャッジ日時 2024-11-29 19:16:16
合計ジャッジ時間 16,590 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge3
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 65 ms
29,824 KB
testcase_01 AC 62 ms
29,824 KB
testcase_02 AC 154 ms
45,824 KB
testcase_03 AC 63 ms
29,824 KB
testcase_04 AC 63 ms
29,824 KB
testcase_05 AC 65 ms
30,208 KB
testcase_06 AC 65 ms
30,080 KB
testcase_07 AC 65 ms
30,080 KB
testcase_08 AC 64 ms
29,824 KB
testcase_09 AC 65 ms
30,080 KB
testcase_10 AC 66 ms
30,080 KB
testcase_11 AC 78 ms
32,256 KB
testcase_12 AC 65 ms
30,080 KB
testcase_13 AC 70 ms
32,256 KB
testcase_14 AC 159 ms
45,684 KB
testcase_15 AC 67 ms
30,336 KB
testcase_16 AC 116 ms
49,536 KB
testcase_17 AC 499 ms
60,948 KB
testcase_18 AC 196 ms
60,036 KB
testcase_19 AC 188 ms
59,928 KB
testcase_20 AC 627 ms
67,620 KB
testcase_21 AC 305 ms
65,708 KB
testcase_22 AC 309 ms
65,688 KB
testcase_23 AC 332 ms
65,784 KB
testcase_24 AC 491 ms
65,456 KB
testcase_25 AC 549 ms
67,748 KB
testcase_26 AC 573 ms
67,744 KB
testcase_27 AC 584 ms
67,748 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.fsproj を復元しました (564 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 # 

open System;

let input:String array=Console.ReadLine().Split(' ')
let N = int(input.[0])
let K = int(input.[1])
let Q = int(input.[2])

let mutable row = [for i in 0..N-1 -> (0, i)] |> Seq.toArray
let mutable col = [for i in N..N+N-1 -> (0, i)] |> Seq.toArray
let mutable colors = [for i in 1..K -> 0L] |> Seq.toArray

let rec binsearch (arr: (int * int)[], hi: int, lo: int, v: int) =
    if hi - lo <= 1 then lo
    elif snd arr.[(hi+lo)/2] < v then binsearch(arr, hi, (hi+lo)/2, v)
    else binsearch(arr, (hi+lo)/2, lo, v)

for i in N+N..N+N+Q-1 do 
    let s:String array=Console.ReadLine().Split(' ')
    let A = s.[0]
    let B = int(s.[1]) - 1
    let C = int(s.[2]) - 1
    if A = "R" then row.[B] <- (C, i) else col.[B] <- (C, i)


row <- Array.sortBy(fun (_, y) -> y) row
col <- Array.sortBy(fun (_, y) -> y) col

for i in 0..N-1 do
    colors.[fst row.[i]] <- colors.[fst row.[i]] + int64(binsearch(col, N, -1, snd row.[i]) + 1)

for i in 0..N-1 do
    colors.[fst col.[i]] <- colors.[fst col.[i]] + int64(binsearch(row, N, -1, snd col.[i]) + 1)

for i in 0..K-1 do
    Console.WriteLine(colors.[i])
0