perl
NobodyKnow123
这个作者很懒,什么都没留下…
展开
-
程序员的算法趣题Perl版 每日一题
第一题:求大于10的回文数,要求该回文数的二进制和八进制都必须为回文数;注:回文数:12321, 14541, 1001001类似这样的数字。答案:585 1001001001 1111$i = 10;while($i <= 10000){ if($i == reverse $i){ $i2 = sprintf "%b", $i; if(...原创 2019-08-18 23:54:15 · 171 阅读 · 0 评论 -
程序员的算法趣题Perl版 每日一题1
第二题求位于1000~9999中的数,插入运算符号+-*/ 最少一个,并使结果等于该数的逆序。$i = 1000;$ii =9999;@y = ('*','');while($i <= $ii){ $i =~/(\d)(\d)(\d)(\d)/; $n = $1; $m = $2; $l = $3; $k = $4; if($n...原创 2019-08-19 00:28:07 · 185 阅读 · 0 评论 -
Perl算法 每日一题3
更难的数独@sd =(['8','.','.','.','.','.','.','.','.'], ['.','.','3','6','.','.','.','.','.'], ['.','7','.','.','9','.','2','.','.'], ['.','5','.','.','.','7','.','.','.'], ['.','.',...原创 2019-08-23 19:06:55 · 184 阅读 · 0 评论 -
Perl算法 每日一题4
有100张牌,正面是1-100,背面朝上放置,从第二张牌翻面,间隔一张,继续翻面。再从第三张翻面,间隔两张,继续翻面;求:最后背面朝上的牌的数字。@num =1..100;@fz = (0) x 100;$i = 0;while($i <= 99){ $b = $i+1; $c = $b+1; for($a=$b;$a<=99;$a=$a+$c){...原创 2019-08-24 12:33:25 · 186 阅读 · 0 评论 -
程序员的算法趣题Perl版 每日一题2
第三题解数独答案为@sd =(['5','3','.','.','7','.','.','.','.'], ['6','.','.','1','9','5','.','.','.'], ['.','9','8','.','.','.','.','6','.'], ['8','.','.','.','6','...原创 2019-08-20 16:52:53 · 144 阅读 · 1 评论 -
genesis阻焊优化一键搞定阻焊
原创 2019-10-09 11:08:33 · 1777 阅读 · 2 评论 -
genesis铜皮处理
补铜桥接地铜皮变线等等原创 2019-10-09 11:14:05 · 2204 阅读 · 2 评论