Perlエラーの単純階乗関数：サブルーチン外に戻る

Question

私はPerlの階乗関数に取り組んでいます。 次のコードは、ステートメントは、サブルーチン内でまだであれば、私は私を信じてCan't return outside a subroutine.

factorial { 
    my $n = $ARGV[0]; 
    if($n <= 1){ 
     return 1; # ----- Error Here ----- 
    } 
    else { 
     return $n * factorial($n - 1); 
    } 
} 

私にエラーを与えます。エラーの原因は何ですか？

Answer 1

間接的な方法の表記が再び襲います！ ^[1]

factorial { ... } 

は、問題は、あなたがサブの宣言の開始時にsubキーワードが欠落していることである

(do { ... })->factorial 

として解析されています。

また

sub factorial { ... } 

---

で

factorial { ... } 

を交換し、サブルーチンの引数は、@_、ない@ARGVで提供されているので、

my $n = $ARGV[0]; 

は

する必要があります3210

---

最後に、再帰的アプローチを使用することは非常に非効率的です。サブコールはかなり高価です。以下は、はるかに高速です：

sub factorial { 
    my $n = shift; 
    my $acc = 1; 
    $acc *= $_ for 2..$n; 
    return $acc; 
} 

---

1. それは存在はあなたがthis magnificent exampleで見ることができるように、彼らは、あるべき時に引っ掛かり、多くのエラーが発生します。