結果

問題 No.254 文字列の構成
ユーザー tailstails
提出日時 2015-07-24 23:31:44
言語 Perl
(5.38.2)
結果
WA  
実行時間 -
コード長 180 bytes
コンパイル時間 246 ms
コンパイル使用メモリ 5,216 KB
実行使用メモリ 4,624 KB
最終ジャッジ日時 2023-09-22 23:42:01
合計ジャッジ時間 20,621 ms
ジャッジサーバーID
（参考情報） 		judge11 / judge14
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 2 ms
4,460 KB
testcase_01 AC 2 ms
4,456 KB
testcase_02 AC 2 ms
4,428 KB
testcase_03 AC 3 ms
4,520 KB
testcase_04 AC 3 ms
4,548 KB
testcase_05 AC 2 ms
4,528 KB
testcase_06 AC 3 ms
4,460 KB
testcase_07 AC 3 ms
4,624 KB
testcase_08 AC 2 ms
4,424 KB
testcase_09 AC 2 ms
4,516 KB
testcase_10 AC 2 ms
4,556 KB
testcase_11 WA -
testcase_12 WA -
testcase_13 WA -
testcase_14 WA -
testcase_15 WA -
testcase_16 OLE -
testcase_17 OLE -
testcase_18 -- -
testcase_19 -- -
testcase_20 -- -
testcase_21 -- -
testcase_22 -- -
testcase_23 -- -
testcase_24 -- -
testcase_25 -- -
testcase_26 -- -
testcase_27 -- -
testcase_28 -- -
testcase_29 -- -
testcase_30 -- -
testcase_31 -- -
権限があれば一括ダウンロードができます
コンパイルメッセージ
Unquoted string "ab" may clash with future reserved word at Main.pl line 2.
Replacement list is longer than search list at Main.pl line 14.
Main.pl syntax OK

ソースコード

diff # 

$n=<>;
$l=ab;
while($n){
	$r=2+sqrt($r)|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-x/c-zab/;
}
0