#!/usr/bin/perl -w

use strict;

sub recursion
{
  if ($_[0] && $_[2])
  {
    print $_[2],"\n";
    if ($_[0] < 5)
    {
       return recursion($_[0] + 1,$_[2],$_[1] + $_[2]);
    }
    else
    {
       return $_[0];
    }
  }
  elsif ($_[0] && !$_[1] && !$_[2])
  {
    print "0\n";
    return recursion($_[0],1);
  }
}
print "\nFibo Series : \n";
recursion(1);

print "\nEnter to exit";
<>;

我知道这是一个蹩脚的例子……但我的目的是要知道这种类型的实现是否仍然有资格成为递归的一个例子？
希望没有砖块:)

编辑：

根据某些条件,如果程序决定只向自己发送一个参数或两个或多个参数……那么这是一个有效的特征吗？