結果
問題 | No.2873 Kendall's Tau |
ユーザー |
![]() |
提出日時 | 2024-09-06 22:25:53 |
言語 | cLay (20241019-1) |
結果 |
WA
|
実行時間 | - |
コード長 | 461 bytes |
コンパイル時間 | 6,790 ms |
コンパイル使用メモリ | 228,668 KB |
実行使用メモリ | 17,028 KB |
最終ジャッジ日時 | 2024-09-06 22:26:02 |
合計ジャッジ時間 | 9,014 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 4 WA * 26 |
ソースコード
ll@n,@(x,y)[n],p=0,q=0,r=0,s=0,a,i,j;coordcomp(n,x);coordcomp(n,y);sortA(n,y,x);for(i=0;i<n;){a=y[i];for(j=i;j<n&&y[j]==a;++j){}s+=i*(j-i);i=j;}sortA(n,x,y);for(i=0;i<n;){a=x[i];for(j=i;j<n&&x[j]==a;++j){}r+=i*(j-i);i=j;}fenwick<ll>f;f.malloc(n,1);for(i=0;i<n;){a=x[i];for(j=i;j<n&&x[j]==a;++j){p+=f.range(0,y[j]-1);q+=f.range(y[j]+1,n-1);}for(j=i;j<n&&x[j]==a;++j){f.add(y[i],1);}i=j;}wt((p-q)/sqrt(r*s));