結果

問題 No.3186 Big Order
コンテスト
ユーザー tails
提出日時 2025-06-21 03:22:41
言語 Perl
(5.40.0)
結果
TLE  
実行時間 -
コード長 248 bytes
コンパイル時間 711 ms
コンパイル使用メモリ 13,440 KB
実行使用メモリ 13,568 KB
最終ジャッジ日時 2025-06-21 03:22:46
合計ジャッジ時間 4,365 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 1
other TLE * 1 -- * 34
権限があれば一括ダウンロードができます
コンパイルメッセージ
Unquoted string "say" may clash with future reserved word at Main.pl line 1.
Main.pl syntax OK

ソースコード

diff # 

use feature say;
for(1..<>){
	use bigint;
	($a,$b,$c)=map$_+0,glob<>;
	$e=1;
	$z=0;
	for(reverse 0..132){
		$e*=$e;
		$z*=2;
		if($b&1<<$_){
			$e*=$a;
		}
		while($e%$c==0){
			$e/=$c;
			$z+=1;
		}
		$e=$e->bgcd($c);
	}
	$z%=998244353;
	say$z;
}
0