#38718 (Perl) No.250 atetubouのzetubou - yukicoder

提出ソース

結果

問題	No.250 atetubouのzetubou
ユーザー	tails
提出日時	2015-07-24 22:41:34
言語	Perl (5.40.0)
結果	TLE
実行時間	-
コード長	122 bytes
コンパイル時間	703 ms
コンパイル使用メモリ	12,928 KB
実行使用メモリ	20,764 KB
最終ジャッジ日時	2024-07-08 13:18:37
合計ジャッジ時間	13,126 ms
ジャッジサーバーID （参考情報）	judge5 / judge1

このコードへのチャレンジ
（要ログイン）

ファイルパターン	結果
sample	-- * 2
other	TLE * 1 -- * 19

権限があれば一括ダウンロードができます

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

use bigint;
<>;
for(<>){
	($d,$x,$t)=map$_+0,/\d+/g;
	print+($x+$d-1)->bfac()/($x->bfac()*bfac{$d-1})<=$t?AC:ZETUBOU,$/
}

0