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

apile

原帖由 大司南 于 2006-12-8 11:47 发表
修改了一下。呵呵

[code]
#!/usr/bin/perl

my $num;

foreach $num(1000..9999)
{      
        $num =~ /(\d){1}(\d){1}(\d){1}(\d){1}/;
        $_=reverse($num);
        if( $_ =~ /$num/ ) ...

你跟我一样都误解了问题...
注意abcd*d = dcba;
还有个*d...别忘了...

大司南

哈哈，马虎了。。。

suandewo

果然厉害，学习了！

xiaoyafeng

晕啊,下意识把=看成赋值了.

avril764

原帖由 怒剑狂啸 于 2006-1-22 08:13 发表

这个结果更严格些，表示a、b、 c、 d分别代表不同的数字，要想一样的话把&&前的匹配部分去掉就可以了。

Good! I think this is the best!