数独混淆Python -> Perl 翻译
有人愿意将其翻译成混淆的 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])
我意识到这只是为了好玩:)
Anybody care to translate this into obfuscated perl? It's written in Python taken from: 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])
I realize it's just for fun :)
如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱,如果其他用户或者作者回复了您的评论,将不能在第一时间通知您!
发布评论
评论(2)
脑残翻译。 更长,因为 Python 2 的
/
是整数除法,而 Perl 是浮点除法。The braindead translation. Longer, since Python 2's
/
is integer division while Perl's is floating-point.已经有一些用 Obfuscated Perl 编写的数独求解器,您真的想要另一个(可能效率较低)吗?
如果不是……
There already are a few Sudoku solvers written in Obfuscated Perl, do you really want another (possibly less efficient) one?
If not...