language-agnostic - Code Golf : Lights out

Question

锁定。这个问题及其答案是locked因为这个问题是题外话，但具有历史意义。它目前不接受新的答案或互动。








挑战

按字符数的最短码解决输入灯灭板。

熄灯板是由两个字符组成的大小不一的二维方格-.对于关闭的灯和 *对于亮着的灯。

要解决板子，必须关闭所有“灯”。切换一盏灯(即打开时关闭，关闭时打开)一次使 5 盏灯 - 选定的灯和灯以 +(加号)形状围绕它。
“选择”中间灯将解决板子:

.*.
***
.*.

自从熄灯!解决方案顺序无关紧要，输出将是一个新板，上面标有要选择的灯泡。上面的板子的解决办法是

...
.X.
...

在没有侧灯可以关掉的角落里关灯不会溢出:

...
..*
.**

在这种情况下，选择右下方的灯泡只会关闭 3 个灯泡。

测试用例

Input:
    **.**
    *.*.*
    .***.
    *.*.*
    **.**
Output:
    X...X
    .....
    ..X..
    .....
    X...X

Input:
    .*.*.
    **.**
    .*.*.
    *.*.*
    *.*.*
Output:
    .....
    .X.X.
    .....
    .....
    X.X.X

Input:
    *...*
    **.**
    ..*..
    *.*..
    *.**.
Output:
    X.X.X
    ..X.. 
    .....
    .....
    X.X..

代码计数包括输入/​​输出(即完整程序)。

Answer 1

Perl，172 个字符

Perl，333 251 203 197 190 172 个字符。在这个版本中，我们随机按下按钮，直到所有的灯都熄灭。

  map{$N++;$E+=/\*/*1<<$t++for/./g}<>;
  $C^=$b=1<<($%=rand$t),
  $E^=$b|$b>>$N|($%<$t-$N)*$b<<$N|($%%$N&&$b/2)|(++$%%$N&&$b*2)while$E;
  die map{('.',X)[1&$C>>$_-1],$_%$N?"":$/}1..$t