結果

問題 No.254 文字列の構成
ユーザー tailstails
提出日時 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/;
}
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0