結果

問題 No.897 compαctree
ユーザー tails
提出日時 2019-10-04 21:49:29
言語 Perl
(5.40.0)
結果
TLE  
実行時間 -
コード長 112 bytes
コンパイル時間 438 ms
コンパイル使用メモリ 7,076 KB
実行使用メモリ 13,640 KB
最終ジャッジ日時 2024-10-03 07:26:50
合計ジャッジ時間 4,297 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 1
other AC * 10 TLE * 1 -- * 2
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

<>;
for(<>){
	($n,$k)=glob;
	$a=0;
	$b=1;
	$c=0;
	while($a<$n){
		$a+=$b;
		$b*=$k;
		++$c;
	}
	print$c-1,$/;
}
0