perl 递归求阶乘

最新推荐文章于 2022-10-31 20:11:20 发布

weixin_34419321

最新推荐文章于 2022-10-31 20:11:20 发布

阅读量250

点赞数

文章标签： python

原文链接：https://my.oschina.net/u/347414/blog/270853

版权

2019独角兽企业重金招聘Python工程师标准>>>

#! /usr/bin/perl
use strict;
use warnings;
 
sub fac
{
    my $n = $_[0]; #注意此处，也可以写my $n = shift()或者是my ($n) = @_;
    if(1 == $n)
    {
        return 1;
    }
    else
    {
        return ($n * fac($n - 1));
    }
}
 
print "Please input a number:";
chomp (my $n = <STDIN>); #请注意此处n的范围。
my $result = fac($n);
print "$n! = $result\n";

转载于:https://my.oschina.net/u/347414/blog/270853