Re: 関数の再起呼び出し

Article View: fj.lang.perl

Article #195

#195

From: Shugo Maeda
Date: Fri, 10 Apr 1998 00:00

25 lines
1150 bytes

前田です。

"Nobukatsu Yakushiji" <nyakushi@fsinet.or.jp> wrote:

|Perl では関数の再帰呼び出しはできないのでしょうか？

Perlはあまり知らないのですが、

sub fact {
    local($n) = @_;
    if ($n < 2) {
	return 1;
    }
    else {
	return $n * &fact($n - 1);
    }
}

print &fact(shift(@ARGV)), "\n";

のように再帰できると思うのですが...。

-- 
前田 修吾

Technical Details

Message-ID: <86af9vhtk9.fsf@totally-fudged-out-message-id>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <01bd63ab$f0c56e30$1400a8c0@yaku>

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: 1043e7,17bb633ab009ea53
X-Google-Attributes: gid1043e7,public
X-Google-Thread: f9898,cc9832c54e5a015f,start
X-Google-Attributes: gidf9898,public
From: shugo@po.aianet.ne.jp (Shugo Maeda)
Subject: Re: 関数の再起呼び出し
Date: 1998/04/10
Message-ID: <86af9vhtk9.fsf@totally-fudged-out-message-id>
X-Deja-AN: 342446729
References: <01bd63ab$f0c56e30$1400a8c0@yaku>
Followup-To: fj.comp.lang.perl
Content-Type: text/plain; charset=ISO-2022-JP
X-Emacs: Emacs 20.2, MULE 3.0 (MOMIJINOGA)
Organization: AIANet Internet Service
Mime-Version: 1.0 (generated by SEMI MIME-Edit 0.100 - "Otomaru")
Newsgroups: fj.lang.perl,fj.comp.lang.perl

Reply to Parent Message