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

apile

$num = 1234;
@str=split(//,$num);
$reverseNum = join("",reverse(@str));
print "$reveseNum\n";

更簡化..

$str =1234;
$num= join("",reverse((split(//,$str))));
print $num,"\n";

寫錯了..我看錯了...:)
deathcult寫得很好..

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...别忘了...