综合型编程论坛

Rosettacode 网站上摘取的，Perl TK 做的同款游戏。 perltk_15puzzle.png # http://rosettacode.org/wiki/15_Puzzle_Game#Perl use strict; use warnings; use Getopt::Long; use List::Util 1.29 qw(shuffle pairmap first all); use Tk; # 5 options 1 label text my ($verbose,@fixed,$nocolor,$charsize,$extreme,$solvab...

[5, "+", [[3, "-", 9], "/", 7]] (29/7) [[[2, "/", 7], "+", 3], "-", [9, "/", 21]] (20/7) 其中分数/有理数 有现成的模块 Math::BigRat 和 Number::Fraction。 自己实现部分功能可以熟悉一下重载。 =info 表达式抽象语法树 转 有理数运算 523066680/vicyang 2019-04 =cut use feature 'sa...

加速版，在递归中逐层排除，减少冗余操作。 考虑低位的情况，比如个位数，0 1 5 6 ，它们的平方的末位数，和自身相同。所以个位可以排除这几个数字 然后是两位数的情况，13*13=169，只判断 69 和 13 是否有重合，因为只有69在下一层是肯定不变的。 以此类推，直到6位数时，判断所有位是否与因数重合。 use Time::HiRes qw/time/; my $ta = time(); our $maxlen = 6; permute([], [0..9], 0); printf "time usage: %.2fs\n", time...

rubyish 写了:My test.

Hi Rubyish，为啥注册一个这么明显的马甲 Rubyish2