论坛徽章:: 3

电梯直达

1楼 [收藏(0)] [报告]

发表于 2004-02-07 23:02 |显示全部楼层 |倒序浏览

use strict;
use warnings;

my $a;
my $b;
my $c;
my $d;

for ($a=0;$a<=9;$a++)
{ for ($b=0;$b<=9;$b++)
{ for ($c=0;$c<=9;$c++)
{ for ($d=0;$d<=9;$d++)
{
if(("$a != $b != $c != $d"

&& ("($a*1000+$b*100+$c*10+$d)*$d" == "$d*1000+$c*100+$b*10+$a"

)

   { print "$a $b $c $d\n"; }
   }
}
  }
}
对吗?

文库|博客

xiaojianredhat

丰衣足食

论坛徽章:: 3

2楼 [报告]

发表于 2004-02-11 18:40 |显示全部楼层

实现"abcd*d=dcba"???

本帖最后由 xiaojianredhat 于 2010-11-22 19:02 编辑

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

xiaojianredhat

丰衣足食

论坛徽章:: 3

3楼 [报告]

发表于 2004-02-14 20:36 |显示全部楼层

实现"abcd*d=dcba"???

$num =~ /(\d){1}(\d){1}(\d){1}(\d){1}/;

复制代码

模式重用时怎么办?
小括号???(应该在模式重用时用)
比如

$num =~ /(\d){1}(\W])(\d){1}(\d){1}/;

复制代码

匹配2.25
如果匹配2.25.32怎么办?(在上面代码的基础上)
[/quote]

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 程序设计 › Perl › 实现"abcd*d=dcba"???

实现"abcd*d=dcba"??? [复制链接]

实现"abcd*d=dcba"???

实现"abcd*d=dcba"???

浏览过的版块