数独模糊的蟒蛇 - ＆gt; perl翻译

Question

有人想把它翻译成混淆的perl吗？它是用Python编写的：here

def r(a):i=a.find('0');~i or exit(a);[m
in[(i-j)%9*(i/9^j/9)*(i/27^j/27|i%9/3^j%9/3)or a[j]for
j in range(81)]or r(a[:i]+m+a[i+1:])for m in'%d'%5**18]
from sys import*;r(argv[1])

我意识到这只是为了好玩：）

Answer 1

sub r{($a=shift)=~/0/g?my$i=pos:die$a;T:for$m(1..9){($i-$_)%9*(int($i/9)^int($_/9))*(int($i/27)^int($_/27)|int($i%9/3)^int($_%9/3))||$a=~/^.{$_}$m/&&next T,for 0..80;substr($a,$i,1)=$m;r($a)}}r@ARGV

脑死亡翻译。更长，因为Python 2的/是整数除法，而Perl是浮点数。

Answer 2

已经有一些用混淆Perl编写的数独求解器，你真的想要另一个（可能效率较低）吗？

如果没有......

1. 反混淆。
2. 在Perl中重写。
3. 模糊处理。