結果
| 問題 | No.204 ゴールデン・ウィーク(2) |
| ユーザー |
 tails
|
| 提出日時 | 2015-05-22 19:17:08 |
| 言語 | Perl (5.40.0) |
| 結果 |
AC
|
| 実行時間 | 6 ms / 1,000 ms |
| コード長 | 5,042 bytes |
| コンパイル時間 | 41 ms |
| コンパイル使用メモリ | 5,248 KB |
| 実行使用メモリ | 5,504 KB |
| 最終ジャッジ日時 | 2024-12-24 11:46:44 |
| 合計ジャッジ時間 | 1,323 ms |
|
ジャッジサーバーID （参考情報） |
judge4 / judge2 |
（要ログイン）
| ファイルパターン | 結果 |
|---|---|
| sample | AC * 3 |
| other | AC * 46 |
コンパイルメッセージ
Unquoted string "x" may clash with future reserved word at Main.pl line 1. Unquoted string "x" may clash with future reserved word at Main.pl line 1. Main.pl syntax OK
ソースコード
$_=x x($==<>).<>.<>.x x$=;s///g;/(??{"o*x{0,$=}o*"})(??{$b+=$-=-$b+length$&})/;print$b__END__上記の87バイトのコードの説明です。全体の構造は、セミコロンで区切られた、次の4つの文からできていて、これらが順に実行されます。(1) $_=x x($==<>).<>.<>.x x$=(2) s/\n//g(3) /(??{"o*x{0,$=}o*"})(??{$b+=$-=-$b+length$&})/(4) print$b--------(1) $_=x x($==<>).<>.<>.x x$=<> で入力を読み込みます。生放送で誰かが「Perl の <> が謎だ」とおっしゃっていました。実際かなり複雑で、区切り文字の設定とコンテキストによって挙動が変わります。このコードの場合は、区切り文字は特に変えていないのでデフォルトの改行文字です。つまり、行が単位（入力レコード）になります。コンテキストは、理由の説明は省略しますが、ここではスカラーコンテキストです。その場合、1つの <> が入力の1単位を表します。以上を合わせると、結局、1つの <> が入力の1行になります。$==<> で、最初の入力行つまり有給日数を $= という変数に代入しています。分解して書くと $= = <> です。<> が返す値には区切り文字である改行文字も付いてきますが、$= は整数値しか入れられない変数なので、代入時に整数に変換されて改行文字が落ちます。左側にある x x($==<>) と、右側に出てくる x x$= というのは、どちらも文字列 "x" の $= 回の繰返しの文字列です。x x という部分の左側の x は文字列 "x" の意味で、右側の x は文字列の繰返しの二項演算子です。. というのは文字列を連結する演算子です。"x" の繰返しと、入力の2行目と、3行目と、"x" の繰返しを連結して、結果を $_ に代入しています。--------(2) s/\n//g先程作った $_ から改行を全て取り除いています。Perl のいくつかの文や式では、処理の対象を明示しない場合に、暗黙で $_ が処理の対象になります。文字数を節約するために \n の部分に本物の改行を使っているので、この文の途中で行が分断されています。--------(3) /(??{"o*x{0,$=}o*"})(??{$b+=$-=-$b+length$&})/全体が1つの正規表現です。正規表現をコード中にいきなり書いた場合には、自動的に $_ に対してマッチングが取られます。正規表現の中身は、2つの (??{...}) という構造になっています。これは ... の部分を Perl のコードとして評価し、評価結果を正規表現として扱うという構文です。左側の (??{"o*x{0,$=}o*"}) は、中身が単なる文字列なので、o*x{0,$=}o* を変数展開したものがそのまま正規表現になります。（余談）それなら、左側は (??{...}) を使わずに、単に/o*x{0,$=}o*(??{$b+=$-=-$b+length$&})/と書いても良さそうです。実際、少し前までの Perl ではそう書くことができましたが、今はセキュリティの理由だか何だかで、変数展開と (??{...}) を混在させるとエラーになります。（余談おしまい）$= には有給日数が代入されています。なので、例えば $= が 5 なら、(??{"o*x{0,$=}o*"}) は o*x{0,5}o* に評価されます。これは、 "o" が0個以上あって、 "x" が0～5個続いて、さらに"o" が0個以上続く、という部分文字列にマッチします。右側の (??{$b+=$-=-$b+length$&}) は、左側でマッチした部分の長さの max を求めています。その時点までの最大値で $b が更新されていきます。$& というのは、正規表現にマッチした部分文字列を表す変数ですが、今はまだマッチの途中なので、この場合には、マッチの開始位置から現在の位置までの部分文字列を表します。length$& で、その長さを求めます。やりたいことは、要するに $b = max($b,length$&) ですが、Perl には max を求める組み込み関数がありません。仕方がないので、 $- という変数の、負の値を代入すると 0 になるという性質を利用しています。これで $b が更新されますが、その結果が正規表現として扱われます。 $b は数値つまり数字の並びなので、$_ のどの部分にもマッチしません。結局、マッチはここで失敗し、左側に戻って、（ o*x{0,$=}o* のバックトラックを引き起こした後）マッチ開始位置を1つ右に進めてマッチをやり直し、これが繰り返されます。どの位置から開始してもマッチが成功することはないので、最終的に失敗するまでの間に、全ての開始位置を試すことになります。--------(4) print$b結果を出力します。