Судоку запутанный питон -> Perl перевод

Question

Судоку запутанный питон -> Perl перевод

1

Кто-нибудь хочет перевести это в обфускацию perl? Это написано на Python, взятом из: здесь

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])

Я понимаю это просто для удовольствия:)

user105033 04 июнь 2009, в 19:04

Источник

0

Выглядит довольно запутанным для меня!
Adam Robinson 04 июнь 2009, в 16:34
1

Оскорбленный код - потраченный впустую код. Это просто для развлечения и не стоит переводить на другой язык.
Tobias Langner 04 июнь 2009, в 16:34
8

«Запутанный Perl» избыточен!
Mike Daniels 04 июнь 2009, в 16:44
0

@Mike: Вы заслуживаете еще много +1 за это.
Adam Robinson 04 июнь 2009, в 16:57
6

@Mike Daniels: если вы так чувствуете, ваши комментарии к чему-либо с тегами Perl, вероятно, не будут очень полезными; Может быть, вы могли бы просто избегать чтения вопросов Perl.
ysth 04 июнь 2009, в 17:30
2

@ysth: Я думаю, что @Mike Daniels повторял обычную шутку.
S.Lott 04 июнь 2009, в 18:27
0

@ysth ты не можешь пошутить!
rlbond 04 июнь 2009, в 18:36
0

@Mike Майк Дэниелс: проблема в том, что ваши «шутки» на самом деле верят людям, так что это общий миф: stackoverflow.com/questions/755168/perl-myths
Kent Fredric 05 июнь 2009, в 02:38
0

Кроме того, если бы вы нашли время, чтобы увидеть оригинальное сообщение, вы бы увидели прикрепленную версию Perl: scottkirkwood.blogspot.com/2006/07/…
Kent Fredric 05 июнь 2009, в 03:25
0

ecclestoad.co.uk/blog/2005/06/02/… # и здесь
Kent Fredric 05 июнь 2009, в 03:26

Показать ещё 8 комментариев

Теги:

python

perl

translate

2 ответа

2

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

Если нет...

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

grawity 04 июнь 2009, в 14:10

Ещё вопросы

Выглядит довольно запутанным для меня!
Оскорбленный код - потраченный впустую код. Это просто для развлечения и не стоит переводить на другой язык.
@Mike: Вы заслуживаете еще много +1 за это.
@Mike Daniels: если вы так чувствуете, ваши комментарии к чему-либо с тегами Perl, вероятно, не будут очень полезными; Может быть, вы могли бы просто избегать чтения вопросов Perl.
@ysth: Я думаю, что @Mike Daniels повторял обычную шутку.
@Mike Майк Дэниелс: проблема в том, что ваши «шутки» на самом деле верят людям, так что это общий миф: stackoverflow.com/questions/755168/perl-myths
Кроме того, если бы вы нашли время, чтобы увидеть оригинальное сообщение, вы бы увидели прикрепленную версию Perl: scottkirkwood.blogspot.com/2006/07/…

ephemient · Accepted Answer · 2009-06-04T16-15-00.000Z

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 - плавающей точкой.