搜索找到 4 个匹配

返回

523066680
2019年03月25日 19:30
转到论坛页面
转到主题

Re: [Puzzle]华容道

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...
523066680
2019年04月16日 14:31
转到论坛页面
转到主题

[Perl]运算符重载 与 表达式抽象语法树转有理数运算

[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...
523066680
2019年03月29日 21:09
转到论坛页面
转到主题

Re: [puzzle]排他平方数

加速版,在递归中逐层排除,减少冗余操作。 考虑低位的情况,比如个位数,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...
523066680
2019年04月28日 15:21
转到论坛页面
转到主题

Re: [puzzle]排他平方数

rubyish 写了:My test.


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