結果

問題 No.254 文字列の構成
コンテスト
ユーザー tails
提出日時 2015-07-24 23:37:23
言語 Perl
(5.40.0)
結果
AC  
実行時間 4 ms / 5,000 ms
コード長 179 bytes
コンパイル時間 155 ms
コンパイル使用メモリ 5,248 KB
実行使用メモリ 5,504 KB
最終ジャッジ日時 2024-07-16 00:24:25
合計ジャッジ時間 1,581 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 30
権限があれば一括ダウンロードができます
コンパイルメッセージ
Unquoted string "ab" may clash with future reserved word at Main.pl line 2.
Main.pl syntax OK

ソースコード

diff # 

$n=<>;
$l=ab;
while($n){
	$r=2+sqrt($n)|0;
	while($r*($r+1)>$n){
		--$r;
	}
	print$l x$r;
	$n-=$r*($r+1);
	if($n>=$r+1){
		print substr $l,0,1;
		$n-=$r+1;
	}
	$l=~y/a-z/c-zab/;
}
0