結果
問題 | No.2873 Kendall's Tau |
ユーザー |
![]() |
提出日時 | 2024-09-06 21:53:30 |
言語 | Crystal (1.14.0) |
結果 |
AC
|
実行時間 | 324 ms / 4,500 ms |
コード長 | 1,416 bytes |
コンパイル時間 | 17,750 ms |
コンパイル使用メモリ | 341,256 KB |
実行使用メモリ | 31,732 KB |
最終ジャッジ日時 | 2024-09-06 21:54:19 |
合計ジャッジ時間 | 23,674 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 30 |
ソースコード
n = read_line.to_ixys = Array.new(n) { read_line.split.map(&.to_i) }xs = xys.map { |v| v[0] }.uniq.sortys = xys.map { |v| v[1] }.uniq.sortcols = Array.new(n) { [] of Int32 }rows = Array.new(n, 0)xys.each do |a|x, y = axi = xs.bsearch_index { |v| v >= x }.not_nil!yi = ys.bsearch_index { |v| v >= y }.not_nil!cols[xi] << yi + 1rows[yi] += 1endr = n.to_i64 * (n - 1) // 2s = n.to_i64 * (n - 1) // 2p = 0i64q = 0i64bit = BIT(Int32).new(n + 1)cnt = 0i64n.times do |x|cols[x].each do |y|p += bit.cumulative_sum(y - 1)q += cnt - bit.cumulative_sum(y)endcols[x].each do |y|bit.add(y, 1)endr -= cols[x].size.to_i64 * (cols[x].size - 1) // 2cnt += cols[x].sizes -= rows[x].to_i64 * (rows[x] - 1) // 2endprintf("%.9f\n", (p - q) / r ** 0.5 / s ** 0.5)class BIT(T)# 1-indexeddef initialize(size : Int)len = 1while len < sizelen *= 2end@v = Array(T).new(len + 1, T.zero)enddef cumulative_sum(index : Int)ret = T.zerowhile index > 0ret += @v[index]index &= index - 1endretenddef sum(l : Int, r : Int)cumulative_sum(r) - cumulative_sum(l - 1)enddef add(index : Int, val : T)while index < @v.size@v[index] += valindex += (index & -index)endenddef set(index : Int, val : T)old = sum(index, index)add(index, val - old)endend