jiemaoshangdewu的专栏

原创 genesis铜皮处理

补铜桥接地铜皮变线等等

原创 genesis阻焊优化一键搞定阻焊

原创 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){...

原创 Perl算法 每日一题3

更难的数独@sd =(['8','.','.','.','.','.','.','.','.'], ['.','.','3','6','.','.','.','.','.'], ['.','7','.','.','9','.','2','.','.'], ['.','5','.','.','.','7','.','.','.'], ['.','.',...

原创 程序员的算法趣题Perl版 每日一题2

第三题解数独答案为@sd =(['5','3','.','.','7','.','.','.','.'], ['6','.','.','1','9','5','.','.','.'], ['.','9','8','.','.','.','.','6','.'], ['8','.','.','.','6','...

原创 程序员的算法趣题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...

原创 程序员的算法趣题Perl版 每日一题

第一题：求大于10的回文数，要求该回文数的二进制和八进制都必须为回文数；注：回文数:12321, 14541, 1001001类似这样的数字。答案：585 1001001001 1111$i = 10;while($i <= 10000){ if($i == reverse $i){ $i2 = sprintf "%b", $i; if(...

原创 自动计算要改多少周，输入料号后 按回车键自动显示原本周期 ，再按回车输出资料

#! c:/Perl/bin/perl.exe -wuse Genesis;use Tk 800.000;use Encode;use Win32::API;$f = new Genesis;require 'shellwords.pl';use Archive::Tar;#计算周期my ( $sec, $min, $hour, $mday, $mon,