結果

問題 No.2449 square_permutation
ユーザー 👑 p-adicp-adic
提出日時 2023-09-01 07:19:42
言語 cLay
(20240714-1)
結果
AC  
実行時間 695 ms / 2,000 ms
コード長 154 bytes
コンパイル時間 8,011 ms
コンパイル使用メモリ 217,028 KB
実行使用メモリ 14,148 KB
最終ジャッジ日時 2024-06-11 02:21:56
合計ジャッジ時間 19,698 ms
ジャッジサーバーID
(参考情報)
judge4 / judge2
このコードへのチャレンジ
(要ログイン)

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 9 ms
9,904 KB
testcase_01 AC 9 ms
9,804 KB
testcase_02 AC 9 ms
10,072 KB
testcase_03 AC 8 ms
9,800 KB
testcase_04 AC 9 ms
9,696 KB
testcase_05 AC 9 ms
9,932 KB
testcase_06 AC 131 ms
10,992 KB
testcase_07 AC 160 ms
11,312 KB
testcase_08 AC 179 ms
11,336 KB
testcase_09 AC 223 ms
11,596 KB
testcase_10 AC 372 ms
12,496 KB
testcase_11 AC 420 ms
12,612 KB
testcase_12 AC 464 ms
11,980 KB
testcase_13 AC 682 ms
12,876 KB
testcase_14 AC 675 ms
14,020 KB
testcase_15 AC 691 ms
13,308 KB
testcase_16 AC 682 ms
12,616 KB
testcase_17 AC 695 ms
12,612 KB
testcase_18 AC 591 ms
12,100 KB
testcase_19 AC 680 ms
14,148 KB
testcase_20 AC 688 ms
12,740 KB
testcase_21 AC 686 ms
12,364 KB
testcase_22 AC 9 ms
9,836 KB
testcase_23 AC 685 ms
12,872 KB
権限があれば一括ダウンロードができます

ソースコード

diff #

ll@N,k,r,f[9],e[9],b[N+1]={};REP(i,N){k=1;REP(m,Factor(i+1,f,e))if(e[m]%2)k*=f[m];RREP(j,1,N/k+1)if(!b[k*j]&&j==r*(r=sqrt(j))){b[k*j]=1;wtSp(k*j);break;}}
0