Chinaunix

标题: perl里面怎么写递归啊？ [打印本页]

作者: kiss2003 时间: 2006-10-23 13:52
标题: perl里面怎么写递归啊？
我需要用perl改写一个类似下面的递归函数，
向大家请教一下，用perl的话怎么处理参数的传递问题啊?
尤其是原来的参数tab是数组怎么传递啊？

#       ---点的颜色为白色时，返回，不处理。
#       if(tcl[x][y]==16777215)  then
#          return;
#       end;
#
#       ---值为1，则计数加1，返回
#       if ( tchked[x][y]) then
#          return ;
#       else
#          table.insert(tab,{x=x,y=y} );--添加到连通线里
#          tchked[x][y]=true;---当值为0时，把值置为1。
#          seed(x+1,y-1,tab);
#          seed(x,y-1,tab);
#          seed(x-1,y-1,tab);
#          seed(x-1,y,tab);
#          seed(x+1,y,tab);
#          seed(x-1,y+1,tab);
#          seed(x,y+1,tab);
#          return seed(x+1,y+1,tab); --这里可以用一个尾调用(参考教程中的函数部份),加快递归的速度。
#       end;

作者: apile 时间: 2006-10-23 17:07
传引用....\@ary...
例如
sub mysub{
my($ary) = @_;
// @{$ary} is the array you input
}

mysub(\@ary);

作者: 兰花仙子 时间: 2006-10-23 19:26
&mysub;

这种方式通常用于写递归子函数，因为在mysub里默认取的是当前@_的值（不管这个@_在哪里形成的）作为参数。

作者: kiss2003 时间: 2006-10-24 01:40
谢谢啊

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)