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

最新推荐文章于 2023-08-25 22:17:32 发布

NobodyKnow123

最新推荐文章于 2023-08-25 22:17:32 发布

阅读量228

点赞数

CC 4.0 BY-SA版权

分类专栏： perl 文章标签： perl

本文链接：https://blog.youkuaiyun.com/jiemaoshangdewu/article/details/99711592

perl 专栏收录该内容

7 篇文章

订阅专栏

探讨一个数学编程问题，目标是在1000至9999的整数范围内，通过插入基本算术运算符，使计算结果等于该数的逆序。代码采用循环和条件判断，遍历指定区间内的所有整数，解析每个数为四位数字，然后尝试所有可能的运算符组合。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

第二题

求位于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 != 0 && $m != 0 && $l != 0 && $k != 0){
       for($o = 0;$o<=1;$o++){
           for($p = 0;$p<=1;$p++){
               for($q = 0;$q<=1;$q++){
                   $w = "$n$y[$o]$m$y[$p]$l$y[$q]$k";
                   if((length "$w") > 4){
                       $v = eval $w;
                       if((length "$v") == 4){
                           if($i eq reverse $v){
                               print"$i $w\n";
                           }
                       }

                   }
               }
           }

       }
   }
   $i++;
}