计算N位数字的自幂数（水仙花数）

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

print "input :";
chomp ($num=<STDIN>);
foreach (100..(10**($num)-1)){

    my $t=$_;
    my $n=10**($num-1);

    foreach(0..($num-3)){
	if(($t/$n)>=1){$i=$num-$_; last;}
	$n/=10;
    }

    foreach(0..($i-1)) {
	@arr[$_]=($t%10);
	$t/=10;
    }
    
    my [email?protected];
    my $sum;

    while(@arr){
	$sum+=((pop @arr)**($lenth));
    }
    print "The Daffodils Num. is $_"."n" if $_==$sum;
}

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!