🌺 🤐 👰 YAPCのREG.RUによるPerlゴルフ::ヨーロッパ2013 🏐 🙆🏽 ❎

perl-developers YAPC :: Europe 2013の定期会議が8月12〜14日にキエフで開催されました。意識的な報告、Perl 5およびPerl 6開発者からのインサイダー情報、Perlの世界（Larry Wall自身を含む）の伝説、リバークルーズとパブの傍観者との素晴らしいコミュニケーション-すべてがそこにありました。イベントは最高の賞賛に値し、主催者と講演者（および他のすべての会議参加者）-あらゆる種類の賞賛と感謝。

しかし、perlプログラマーは、通常の人間の喜びに加えて、常に理解可能で密接ではない特別な通常の「ホモサピエンス」で楽しませる傾向があることはよく知られています。

それで、どうやってPerl GolfをYAPCに入れたのか、そしてそれが何をもたらしたのか。

REG.RUはスポンサーとして会議をサポートしました。ブースとホールのスタッフは、素晴らしいTシャツ、会社に関する有益な情報、笑顔、前向きな雰囲気をためらうことなく、さらに「最も強力なPerlプログラマー」のコンテストを開催しました（ REG.RUのウェブサイトですべての詳細と写真を報告してください））

YAPCのREG.RU :: 2013年ヨーロッパ

しかし、もちろん、そこで止まることはできませんでした。「Perl-event-perl-activity、他には何もありません！」-私たちは自分自身に言い聞かせて、それから実際に何を意味するのか考え始めました。

Perl Golfとは何ですか？

一般に、Perl Golfはプログラミングの競争です（もちろん、Perlでは、他の言語で「ゴルフ」を試みていますが）、問題を正しく解決する最短のプログラムが勝ちます。同時に、追加のモジュールと外部ツールの使用は許可されていません。エンターテインメントは、JAPH、難読化、コード詩、その他のエキサイティングな（おそらく実用的ではないかもしれませんが）アクティビティとともに、Perlプログラマーのお気に入りの1つです。さらに、Perl Golfには絶対に明確な評価基準（プログラム内の最小文字数）があるため、競争形式として完全に適合します。

チームには経験豊富なゴルファーがいなかったので、私は一からクラフトを習得しなければなりませんでした。そして、私は言わなければならない、外部のエキゾティズムにもかかわらず（そして通常のコードがどのように見えるべきかを理解するプログラマーの観点からは恐ろしいものでさえ）、ゴルフは興味深く有用な活動であることが判明し、言語の深くて明白でない機能と能力を学び、理解するのを助けました、問題とその解決策を明確かつ簡潔に定式化する能力を訓練します。多くの考えと創造的な苦痛の結果として、次の物語が生まれました。

凡例

あなたは江戸時代の貴族の貴族の息子です。あなたは常にプログラマになることを夢見ていましたが、家族の伝統がより強力であることが判明しました-あなたは訓練のために郭をマスターするために送られました。短い理論的紹介の後、マスターは石を捕獲するタスクを尋ね始めました。

タスクは簡単ですが、Goの能力がないことは明らかです。さらに、マスターは誤って解決されたタスクごとに竹の棒で痛いほどあなたを叩き、1本の棒だけで食事をさせます。暴行と慢性的な栄養失調にうんざりしているあなたは、あなたのために問題を解決するプログラムを書くことにします。そして、江戸時代の紙は高価なので、プログラムはできるだけ短くすべきです。

Goゲームの基本

郭は、数千年前に中国に登場し、日本で全盛期を生き延びた最古のボード戦略ゲームです。 2人のプレーヤーがゲームに参加し、交互にボードグリッドの交点に黒と白の石を置きます。石（または石のグループ）は、敵の石に四方が囲まれている場合、捕獲されてボードから取り除かれたとみなされます。たとえば、次の図では、黒（「b」）が「x」で示されるポイントに移動すると、白い石（「w」）または石のグループがボードから削除されます。

利用規約

タスクは9×9の生徒会で行われます。
右の動きは黒い石です。
すでに捕獲されている石がボード上にないことが保証されています。

入力：ゲームボードを表す9行がSTDINで提供されます。行はスペース（ボード上の空のドットを示す）、文字 "w"（白い石）および "b"（黒い石）で構成され、改行文字（ "\ n"）で終わります。

出口：ポイントの座標（スペースを通る行番号と列番号、1から番号付け）、そこへの移動は白い石の捕獲につながります。 STDOUTに1行に1ポイント表示する必要があります。ボード上のすべての潜在的な動きを推測して、白い石を捕獲する必要があります。ポイントは、ボード上で左から右、上から下の順に表示されます。

競技は、Perl Golfの通常のルールに従って開催されます。

テストに合格した最短のプログラムが勝ちます。
Shebangは＃！Perlまたは＃！Perl -flagsのように見えるはずです。＃！perlは文字数をカウントする際に考慮されませんが、「-」文字を含む指定されたフラグは考慮されます。
スペースや改行など、他のすべての文字がカウントされます。
プログラムは、他のモジュールを使用したり、外部プログラムを呼び出したり、外部データソースにアクセスしたりすることはできません。
このソリューションは、STDERRに何も表示せずに、Perlバージョン5.18.0で正常に動作するはずです。

問題の状態と検証のための一連のテストがcontest.reg.ruに公開されました。テストに合格することは、ソリューションの正確さの基準と見なされました。しかし、競技後、参加者はいくつかの追加の洗練されたテストケースを提案し、その上でいくつかの決定がつまずきました。そのため、追加のテストケースに合格しない場合、指定されたソリューションは個別にマークされます。

会議の日中（および夕方と夜）に参加者の活発な専門的および社会的生活にもかかわらず、私たちはいくつかの非常に興味深い解決策を受け取りました。それは私自身の注釈でさらに与えます（私の理解度はまだゴルフであるので割引して））

競争力のあるソリューション

205文字-ブライアンマッコーリー

競争の勝者は、隣接する石のグループを強調表示し、正規表現を「走り回って」近隣ポイントをチェックするソリューションを提案しました（古代から正規表現のソリューションだけがPerl Golfに勝つと信じられています）。さらに、入力に追加の初期行を追加することで多くのソリューションに現れるトリックが使用されました。これにより、ボード上のポイントの連続した位置が座標（行番号と列番号）の組み合わせに変わります。

#!perl $b=++$/x11 .<>;for$i(9..99){if(($x=$b)=~s/^(.{$i}) /$1x/s){while($x=~/w/g){$_="$`W$'";1while s/w((?<=W.{10})|(?<=W.)|(?=.{9}W|W))/W/s;/W((?<= .{10})|(?<= .)|(?=.{9} | ))/s||$i=~/./+(print"$& $'\n")+last}}}

注釈

 #!perl # $/   «1»,  «<>»       #  (   ).      #     11  (   / #          . $b = ++$/ x 11 . <>; #    . for $i ( 9 .. 99 ) { #   .     , . . , #    «x» ( ,  ,    #  ,   )  . if ( ( $x = $b ) =~ s/^(.{$i}) /$1x/s ) { #          («w»). while ( $x =~ /w/g ) { #    $_,     «w»  «W» # (     while # $`      ,   $' — ). $_ = "$`W$'"; #    ,    . 1 while s/w((?<=W.{10})|(?<=W.)|(?=.{9}W|W))/W/s; #   ( ) -    . /W((?<= .{10})|(?<= .)|(?=.{9} | ))/s #   ,   . #   «/./»     $& (  #  )  $' ( ,     # ), .   ,    #     . || $i =~ /./ + ( print "$& $'\n" ) + last; } } }

ブライアンは彼の決定と彼自身の注釈をPerlMonksで公開しました。さらに、彼は稲妻ブロックでこの決定を説明するレポートを作成しました。

競争での勝利のために、ブライアンはミニゴルフの素晴らしいセットを受け取ったので、今では職場で退屈に直面することはありません。

212文字-Sergey Mozhaysky（追加のテストケースは合格しません）

無限の再帰を回避するために、隣接ポイントを再帰的に走査し、チェックポイントに関する情報を保存するソリューション。

 #!perl @g=(d..n,map{/./g,''}<>);sub n{my($i,$j,$r)=@_;map{$_=1and map{$r=n($i,$j+1)+n($i,$j-1)+n($i+1,$j)+n($i-1,$j)==1if/w/;$r=1and$0="$i $j\n"if/ /}$g["$i$j"]if!$_}$s{"$i$j"};$r}map{print$0if$g[$_]eq'w'&&n(/./g)}0..99

注釈

 #!perl #        d .. n, #    . @g = ( d .. n, map { /./g, '' } <> ); #     sub n { my ( $i, $j, $r ) = @_; #  %s       # (   ). #    %s  $_   map. map { #   %s    #   ,      . $_ = 1 and map { #     —  ,    #     ,   #        # (. .         ). $r = n( $i, $j + 1 ) + n( $i, $j - 1 ) + n( $i + 1, $j ) + n( $i - 1, $j ) == 1 if /w/; #   ,    #     $0. $r = 1 and $0 = "$i $j\n" if / / } $g["$i$j"] if !$_ } $s{"$i$j"}; #    $r } #     . map { #      ,     #     . print $0 if $g[$_] eq 'w' && n(/./g) } 0 .. 99

残念ながら、追加のテストでは、ソリューションに誤検出があります。

279文字-ニコライシュリャコフスキー

再帰的ソリューションでもありますが、無限再帰と結果の繰り返し出力に対する保護のロジックが異なります。

 #!/usr/bin/perl while(<>){tr/ wb\n/2133/;$str.=$_.'3'}@m=split//,('3'x12).$str;for(@m){%l=();$r=1;z($i);$o{$w[0]}=1if/1/&&$r&&(@w=%l)==2;$i++}printf"%d %d$/",$_/11,$_%11for sort keys%o;sub z{my$c=$_[0];for(qw/11 1 -11 -1/){$x=$c+$_;$n=$m[$x];$l{$x}=1if$n==2;if($n==1){z($x)if!/-/;$r=0if$i>$x}}}

注釈

 #!/usr/bin/perl while (<>) { #   , tr/ wb\n/2133/; #      . $str .= $_ . '3'; } @m = split //, ( '3' x 12 ) . $str; #      #     for (@m) { %l = (); $r = 1; z($i); #  . $o{ $w[0] } = 1 #  , if /1/ #     ( ), && $r #  , && ( @w = %l ) == 2; #       . $i++; } printf "%d %d$/", $_ / 11, $_ % 11 #       #     11 for sort {$a > $b} keys %o; #    . sub z { my $c = $_[0]; for (qw/11 1 -11 -1/) { #     $x = $c + $_; #   , $n = $m[$x]; #   . $l{$x} = 1 if $n == 2; #  ,    —  if ( $n == 1 ) { #    —  , z($x) if !/-/; #     . $r = 0 if $i > $x #  ,    #    # (  ) } } }

追加のテストケースでは、かなり明らかなバグが見つかりました。フィールドの最後の行に「エキサイティングな」位置（100以上の配列内の位置）があると、ボード上の早い位置の前の出力に到達します。これは、並べ替えが結果の並べ替えに使用されるという事実が原因であり、デフォルトでは文字列比較モードで機能します。つまり、「100」は「99」未満になります。

370キャラクター-ミカライ・リオヘンキ+デニス・シロコフ

再帰ソリューションの別のバリエーション。別のよく使用されるトリックがここに表示されます。各ポイントをチェックするには、ボードのコピーを作成し、そこに黒い石を取り付け、その後ボードに白い石がキャプチャされているかどうかをチェックします。

 #!perl $s='b'x12; while(<>){s/\n/bb/;s/ /0/g;$s.=$_;}$s.='b'x10;@q=(-1,+1,11,-11);@a=split//,$s; for(@a){++$i;if(!$a[$i]){$res=0;$p=[];for(@q){$c=$_+$i;if($a[$c]eq'w'){$p=[@a];$p->[$i]='b';$res+=b($p,$c);}}if($res){printf"%d %d\n",$i/11,$i%11;}}} sub b{my($e,$w)=@_;$r=1;for(@q){$z=$_+$w;return 0 if!$r||!$e->[$z];if($e->[$z]eq'w'){$t=[@$e];$t->[$w]='b';$r&=b($t,$z)}}return$r}

注釈

 #!perl #   ,       . #    0,     . $s = 'b' x 12; while (<>) { s/\n/bb/; s/ /0/g; $s .= $_; } $s .= 'b' x 10; @q = ( -1, +1, 11, -11 ); #     . @a = split //, $s; #      . for (@a) { #  . ++$i; if ( !$a[$i] ) { #   . $res = 0; $p = []; for (@q) { #   . $c = $_ + $i; if ( $a[$c] eq 'w' ) { #     . $p = [@a]; #   $p->[$i] = 'b'; #      . $res += b( $p, $c ); #  «». } } if ($res) { #   , printf "%d %d\n", $i / 11, $i % 11; #     . } } } sub b { my ( $e, $w ) = @_; $r = 1; for (@q) { #   .    . $z = $_ + $w; return 0 if !$r || !$e->[$z]; if ( $e->[$z] eq 'w' ) { $t = [@$e]; $t->[$w] = 'b'; $r &= b( $t, $z ) } } return $r; }

390文字-Dmitri L.

カウンターの形で隣接をチェックした結果の特定の集計を使用する別の再帰的なソリューション。

 #!perl push@t,split//,'b'x11;for(<>){chomp;push@t,split//,"b$_"."b"}push@t,@t[0..10];for(;$r++<11;){for($c=0;$c++<11;){$i=$r*11+$c;if($t[$i]eq' '){for($i-11,$i+1,$i+11,$i-1){next unless$t[$_]eq'w';$t[$i]='b';if(f($_)>7){print"$r $c\n";last}$t[$i]=' '}}}}sub f{my($r,$e,$k)=@_;$d{$r}?return$e||$dr:($d{$r}=2);for($r-11,$r+1,$r+11,$r-1){$k+=1+f($_,1)if$t[$_]eq'w';$k+=2if$t[$_]eq'b'}$e?$k>7?$e:0:$k}

注釈

 #!perl #   ,        push @t, split //, 'b' x 11; for (<>) { chomp; push @t, split //, "b$_" . "b" } push @t, @t[ 0 .. 10 ]; #      for ( ; $r++ < 11 ; ) { for ( $c = 0 ; $c++ < 11 ; ) { #    $i = $r * 11 + $c; #    - ,   if ( $t[$i] eq ' ' ) { for ( $i - 11, $i + 1, $i + 11, $i - 1 ) { next unless $t[$_] eq 'w'; $t[$i] = 'b'; if ( f($_) > 7 ) { #    7 (. . 8) print "$r $c\n"; #   last } $t[$i] = ' ' } } } } sub f { my ( $r, $e, $k ) = @_; $d{$r} ? return $e || $dr : ( $d{$r} = 2 ); for ( $r - 11, $r + 1, $r + 11, $r - 1 ) { #   $k += 1 + f( $_, 1 ) if $t[$_] eq 'w'; #    -    1    $k += 2 if $t[$_] eq 'b'; #    2    } $e ? $k > 7 ? $e : 0 : $k; }

404文字-Philippe Bruhat（BooK）

最短ではありませんが、おそらく最もアルゴリズム的に複雑で、最も複雑で解析が難しいソリューションの1つなので、注釈から完全な明確さを期待しないでください。

 #!perl #!perl -ln sub M{$k=pop;my%t;$l[$k]=[grep!$t{$_}++,@{$l[$k]},@_]}sub S{($m,$n)=@_;($M,$N)=sort$$m,$$n;M@{delete$l[$N]},$M if$N!=($$m=$$n=$M)}$i=1;for(split//){$b[$c=$..$i]=/w/?++$e:$_;$x=($R=$.-1).$i;$y=$..($C=$i-1);/w/&&do{$b[$_]>0&&S\$b[$c],\$b[$_]for$x,$y;M$b[$x]eq$"?"$R $i":(),$b[$y]eq$"?"$. $C":(),$b[$c]};/ /&&map{$b[$_]>0&&M"$. $i",$b[$_]}$x,$y;$i++}}{print for sort grep!$s{$_}++,map@$_-1?():@$_,@l

注釈

 #!perl -ln sub M { $k = pop; my %t; #  «». $l[$k] = [ grep !$t{$_}++, @{ $l[$k] }, @_ ] } sub S { ( $m, $n ) = @_; ( $M, $N ) = sort $$m, $$n; #          #    «»  M @{ delete $l[$N] }, $M if $N != ( $$m = $$n = $M ); } $i = 1; #       . for ( split // ) { $b[ $c = $. . $i ] = #  $.   . /w/ ? ++$e : $_; #      #   . $x = ( $R = $. - 1 ) . $i; #    . $y = $. . ( $C = $i - 1 ); #     . #    —      /w/ && do { #      $b[$_] > 0 && S \$b[$c], \$b[$_] for $x, $y; #   «». M $b[$x] eq $" ? "$R $i" : (), $b[$y] eq $" ? "$. $C" : (), $b[$c]; }; #    —  «»     . / / && map { $b[$_] > 0 && M "$. $i", $b[$_] } $x, $y; $i++; } }{ #  . print for sort grep !$s{$_}++, map @$_ - 1 ? () : @$_, @l

幸いなことに、フィリップは問題を真剣に受け止め、解決策に彼自身の詳細な説明を提供しました。

著者からの要約

アルゴリズムの中核は、石のグループを作成し、更新することです

各グループの自由のリスト。最後に、自由のみ

ソートされた後、単一の自由を持つグループから印刷されます

そして重複排除。

アルゴリズムは、ボードに@bを使用し、それが

9x9ボード。したがって、座標は00..99と$ xの範囲にあります。$ Yは

任意の交差点を指します。ボードを構築するとき、列

行0には何も書き込まれません（undefまたは ''）。

ボードは1行で1行で表示されます（-lnに感謝）。

各セルについて、上と左のセルを見ました。

現在のセルが「w」の場合、次の利用可能なセルに変わります

番号、および各隣人について、それが番号の場合、両方が有効になります

2つの数値の最小値に入れ、それらの自由のリストは

合併しました。 ''の隣人は、次の自由のリストに追加されます。

現在のセル。

現在のセルが ''の場合、そのセルに自由として追加されます

数字である隣人。

「b」セルについては、何もしません。

数値は、ホワイトグループの「等価クラス」です。

同じ番号の2つのセルは同じグループの一部です。

ボードの印刷は、アルゴリズムをデバッグするのに非常に役立ちました。

  ...wb.... ...1b.... ...b..... ...b..... ......... ......... ..b...... would ..b...... .bwb..... become .b2b..... bwwwb.... b222b.... ......... ......... ......... ......... .......bw .......b6

セルのマージがない場合、「2」グループは実際には次のようになります。

  2 345

パス中、次のように進化します。

  ..b...... .b2

（次の白まですべてのセルを訪問）

  ..b...... .b2...... b3

  ..b...... .b2b..... b34

現在のセル（4）を2にマージ：

  ..b...... .b2b..... b32

現在のセル（2）を3にマージ：

  ..b...... .b2b..... b22

  ..b...... .b2b..... b225

現在のセル（5）を2にマージ：

  ..b...... .b2b..... b222

サブMは自由度を追加し、重複を削除します。

sub Sは等価クラスのマージを行い、呼び出します

Mは彼らの自由を統合します。

400では、勝つことを期待していませんでした。ゴルフの有名な事実

競争は正規表現ベースのアルゴリズムが常に勝つことです。 :-)

500文字-サビオ・ピマテオ

そして、各空のセルに黒い石を取り付ける前と取り付けた後のボード上の「非自由」（黒または捕獲された白）の石の数を比較するもう1つの再帰的なソリューション

 #!perl my$X=121;my$m;sub z{my($s,$x,$m)=shift;while($x<$X){$m+=f($x++,$s);}$m;}sub f{my($n,$t,$d)=@_;my$c=substr($t,$n,1);return 0 if $c eq ' '||!$d&& $c ne 'w';return 1 if $c eq 'b';substr($t,$n,1)='b';(!(($n+1)%11)||f($n+1,$t,1))*(!(($n-1)%10)||f($n-1,$t,1))*f($n+11,$t,1)*f($n-11,$t,1);}my$y='b'x11;while(<>){$y.="b$_";}$y=~s/\n/b/g;$y.='b'x11;$d=z($y);my$i=0;while($i<$X){my$ch=substr($y,$i,1);if($ch eq ' '){$b=$y;substr($b,$i,1)='b';if(z($b)>$d){my$y=int($i/11);my$x=$i-($y*11);print"$y $x\n";}}$i++;}

注釈

 #!perl my $X = 121; #    . my $m; #   «» (   )    . sub z { my ( $s, $x, $m ) = shift; #      . while ( $x < $X ) { $m += f( $x++, $s ); } $m; } #    «» sub f { my ( $n, $t, $d ) = @_; my $c = substr( $t, $n, 1 ); #   . #  0    #               . return 0 if $c eq ' ' || !$d && $c ne 'w'; #  1,      . return 1 if $c eq 'b'; #     . substr( $t, $n, 1 ) = 'b'; #    . ( !( ( $n + 1 ) % 11 ) || f( $n + 1, $t, 1 ) ) * ( !( ( $n - 1 ) % 10 ) || f( $n - 1, $t, 1 ) ) * f( $n + 11, $t, 1 ) * f( $n - 11, $t, 1 ); #    0,      #      . } #   ,       . my $y = 'b' x 11; while (<>) { $y .= "b$_"; } $y =~ s/\n/b/g; $y .= 'b' x 11; $d = z($y); my $i = 0; while ( $i < $X ) { #  . my $ch = substr( $y, $i, 1 ); #   . if ( $ch eq ' ' ) { #    , $b = $y; #  , substr( $b, $i, 1 ) = 'b'; #     . #      «»   if ( z($b) > $d ) { #    . my $y = int( $i / 11 ); my $x = $i - ( $y * 11 ); print "$y $x\n"; } } $i++; }

581文字-ディミトリー・イワノフ

Savio Pimatteoの以前のソリューションに非常に近いソリューション。

 #!perl eval{ $a->[10]=$a->[0]=[('b')x11]; while(<STDIN>){chomp;@{$a->[++$i]}=('b',(split''),'b');last if $i>=9} sub f { my($x,$y)=@_; return $o[$j] if $n->[$x][$y]; return $o[$j]||2 if $a->[$x][$y]eq'b'; return 1 if $a->[$x][$y]ne'w'; $n->[$x][$y]=$j; $o[$j]=f($_,$y)for($x-1,$x+1); $o[$j]=f($x,$_)for($y-1,$y+1); return $o[$j]; } sub p { for $x(0..10){for $y(0..10){ f($x,$y,$j++) if $a->[$x][$y]eq'w'&&!$n->[$x][$y]; }} return grep{$_==2}@o; } my $t=p; for $x(0..10){for $y(0..10){ next if $a->[$x][$y]ne' '; $a->[$x][$y]='b'; @o=();$n=[]; print"$x $y\n" if $t<p; $a->[$x][$y]=' '; }} }

注釈

 #!perl eval { #       . $a->[10] = $a->[0] = [ ('b') x 11 ]; #  ,     . while (<STDIN>) { chomp; @{ $a->[ ++$i ] } = ( 'b', ( split '' ), 'b' ); last if $i >= 9; } #     . sub f { my ( $x, $y ) = @_; #   ,    . return $o[$j] if $n->[$x][$y]; #     2,      . return $o[$j] || 2 if $a->[$x][$y] eq 'b'; #  ,        (. .  ). return 1 if $a->[$x][$y] ne 'w'; #    ,   , $n->[$x][$y] = $j; #    . $o[$j] = f( $_, $y ) for ( $x - 1, $x + 1 ); $o[$j] = f( $x, $_ ) for ( $y - 1, $y + 1 ); #   $o[$j]   1      #       . return $o[$j]; } #    . sub p { #    . for $x ( 0 .. 10 ) { for $y ( 0 .. 10 ) { #  ,       #      . f( $x, $y, $j++ ) if $a->[$x][$y] eq 'w' && !$n->[$x][$y]; } } #       # (. .     ). return grep { $_ == 2 } @o; } my $t = p; # . for $x ( 0 .. 10 ) { #   . for $y ( 0 .. 10 ) { next if $a->[$x][$y] ne ' '; # ,    . $a->[$x][$y] = 'b'; #     . @o = (); #  . $n = []; #     . print "$x $y\n" if $t < p; #   ,   #      # (. .    ). $a->[$x][$y] = ' '; #   . } } }

競合他社のソリューション

競争を組織し、競争問題の解決策を持たないのは奇妙だろう。だからここに主催者からの解決策があります、それは私です：

192文字-ティムール・ノザッツェ

簡単な再帰的ソリューション。密な最小化と不要なすべての削除、フラグを使用した入力データの解析の節約、およびregexpと特殊変数を使用してポイント位置を座標に変換する十分に効果的なトリックにより、良い結果が得られました。

 #!perl -ln0aF// sub c{my$s=pop;$s=~/-|9/||$g[$s]eq'b'||$g[$s]=~/w/*!grep{$g[$s]='b';!c($s+$_)}1,-1,10,-10}map{@g=@F;$g[$_]='b';/\d$/,print$`+1,$",$&+1if$F[$_]=~/ /*grep{$g[$_]eq'w'&&c$_}0..$#g}0..$#F

注釈

 #!perl -ln0aF// #   : # -n  «while () { … }»  ; # -0     ,    ; # -a  ,       @F; # -F//  -a   ; # -l      print. #   «»  sub c { my $s = pop; #  ,  #      (   ), $s =~ /-|9/ #     , || $g[$s] eq 'b' #         . || $g[$s] =~ /w/ * !grep { $g[$s] = 'b'; !c( $s + $_ ) } 1, -1, 10, -10; } #     . map { #  . @g = @F; #      . $g[$_] = 'b'; # ,     ,        #      . /\d$/, print $`+ 1, $", $& + 1 if $F[$_] =~ / / * grep { $g[$_] eq 'w' && c $_} 0 .. $#g } 0 .. $#F

ソリューションのアルゴリズムの単純さにもかかわらず、驚くべきことに、問題の本質に集中し、新しい変数を作成せず、寛大な手でコードの重複部分を作成しない場合、多くの場合、多くの余分なコードをコードから削除できます。そのため、Golfでは、コードのサイズを小さくするだけでなく、問題とその解決策の表面的な理解をより深く、明確にすることにも焦点を当てています。

実際、コンテスト中、この結果（192文字）は負けませんでした。しかし、これで終わりではなく、コラボレーションと経験の交換の時間でした。

197文字-Sergey Mozhaysky（追加のテストケースは合格しません）

セルゲイは中間変数を取り除き、座標を表示するための新しいオプションを考え出し、決定を改善しました。

 #!perl @g=(d..n,map{/./g,''}<>);sub n{my($i,$r)=@_;map{do{$_=1and$r=n($i+1)+n($i-1)+n($i+10)+n($i-10)==1if/w/;$_=$r=1and$0=$i if/ /}if/\D/}$g[$i];$r}map{printf"%s %s\n",$0=~/./g if$g[$_]eq'w'&&n($_)}0..99

注釈

 #!perl @g = ( d .. n, map { /./g, '' } <> ); #        . sub n { my ( $i, $r ) = @_; #        , #      . map { do { $_ = 1 and $r = n( $i + 1 ) + n( $i - 1 ) + n( $i + 10 ) + n( $i - 10 ) == 1 if /w/; $_ = $r = 1 and $0 = $i if / / } if /\D/ } $g[$i]; $r } map { #          printf "%s %s\n", $0 =~ /./g if $g[$_] eq 'w' && n($_) } 0 .. 99

189文字-ティムール・ノザッツェ

私の決定は、Brianの発言のおかげで数文字減りました。$＃を介して配列のサイズを取得することは、数値定数89に置き換えられ、正規表現/\d$/

は/.$/

。

 #!perl -ln0aF// sub c{my$s=pop;$s=~/-|9/||$g[$s]eq'b'||$g[$s]=~/w/*!grep{$g[$s]='b';!c($s+$_)}1,-1,10,-10}map{@g=@F;$g[$_]='b';/.$/,print$`+1,$",$&+1if$F[$_]=~/ /*grep{$g[$_]eq'w'&&c$_}0..89}0..89

注釈

 #!perl -ln0aF// #   : # -n  «while () { … }»  ; # -0     ,    ; # -a  ,       @F; # -F//  -a   ; # -l      print. #   «»  sub c { my $s = pop; #  ,  #      (   ), $s =~ /-|9/ #     , || $g[$s] eq 'b' #         . || $g[$s] =~ /w/ * !grep { $g[$s] = 'b'; !c( $s + $_ ) } 1, -1, 10, -10; } #     . map { #  . @g = @F; #      . $g[$_] = 'b'; # ,     ,        #      . /.$/, print $`+ 1, $", $& + 1 if $F[$_] =~ / / * grep { $g[$_] eq 'w' && c $_} 0 .. 89 } 0 .. 89

このアプローチの根本的な改善はほとんど期待できません。

そして、Perlmonksでのタイタンの戦いを目撃しました。

175文字-ブライアンマッコーリー

ブライアンは、セルゲイのアドバイスと私のソリューションからのいくつかのアイデアを使用して、結果を真剣に改善しました。

 #!perl -ln0 map{$i=$-[0]+11;{map{1while s/w((?<=W.{10})|(?<=W.)|(?=.{9}W|W))/W/s;/W((?<= .{10})|(?<= .)|(?=.{9} | ))/s||$i=~/./+print("$& $'")+last}"$`W$'"while/w/g}}"$`x$'"while/ /g

注釈

 #!perl -ln0 #  ,       . map { $i = $-[0] + 11; #     . { map { 1 while s/w((?<=W.{10})|(?<=W.)|(?=.{9}W|W))/W/s; /W((?<= .{10})|(?<= .)|(?=.{9} | ))/s || $i =~ /./ + print("$& $'") + last } "$`W$'" while /w/g } } "$`x$'" while / /g

127文字-グリミー

PerlMonksを使用するGrimyユーザーはBrianのアイデアを押し進め、正規表現オプションを127文字という素晴らしい結果に導きました！

 #!perl -ln0 map{1while$,=s=$,w=g=s?'(g|(?=.g|..{9}g)|g.{9})\K':/g/>/$, /s&&map{y!.! !;print;redo}/x/+"@+E-1"or y&g&b&}"$`x$'"while/ /g

注釈

 #!perl -ln0 #      «x». map { 1 while $, = #       g. # ( $,    ,    #        .) s=$,w=g=s #        . ? '(g|(?=.g|..{9}g)|g.{9})\K' #     ,     , #    . : /g/ > /$, /s && map { #  @+        /x/, # . .     . #     (/x/)     , #  -1  (E-1).     «.»  « », #    . y!.! !; print; redo } /x/ + "@+E-1" #      —     #    . or y&g&b& } "$`x$'" while / /g

実を言うと、この解決策は神秘主義の一部の要素を保持していますが、私の注釈が真実からそれほど遠くないことを願っています。

さて、正規表現の決定の無敵性に対する広範な信念は完全に正当化されます。これは驚くべき結果であり、それを打つことは困難です。しかし、行商人の信じられないほどの勇気と戦いの資質を知って、私たちは手を試すことを申し出ます。現在のリーダー（127文字）よりも優れた（つまり、短い）ソリューションを提案した人は、最大6か月間、.ruまたは.ゾーンおよびVPSのドメインをREG.RUからギフトとして受け取ります。決定はcontest@reg.ruで行われます。更新されたテストスイートに正常に合格した決定のみが渡されます。がんばれ！

YAPCのREG.RUによるPerlゴルフ::ヨーロッパ2013