結果

問題 No.1233 割り切れない気持ち
ユーザー tailstails
提出日時 2020-09-18 22:22:59
言語 cLay
(20241019-1)
結果
AC  
実行時間 2,010 ms / 3,153 ms
コード長 280 bytes
コンパイル時間 1,988 ms
コンパイル使用メモリ 172,280 KB
実行使用メモリ 9,292 KB
最終ジャッジ日時 2024-07-05 14:16:12
合計ジャッジ時間 64,398 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 39
権限があれば一括ダウンロードができます

ソースコード

diff # 

ll n,s,t,z,a[2d5],b[1d3],c[3d5];

{
	rd(n,a(n));
	rep[a](x,n){
		rep(k,2,1d3){
			b[k]+=x%k;
		}
		c[x]+=1;
		s+=x;
	}
	c[1..2d5]+=c[0..];
	rep[a](x,n){
		if(x<1d3){
			z+=b[x];
		}else{
			z+=s;
			t=2d5/x*x;
			while(t){
				z-=x*(c[2d5]-c[t-1]);
				t-=x;
			}
		}
	}
	wt(z);
}
0