sudoku obfuscated python -> perl translation

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 

Braindead перевод. Дольше, поскольку Python 2's / является целым делением, а Perl - плавающей точкой.

Answer 2

Там уже несколько Судок решателей, написанных в затемненном Perl, действительно ли вы хотите другой (возможно, менее эффективны) один ?

Если нет ...

1. De-Затемнение.
2. Переписать в Perl.
3. Obfuscate.