perl 解答奶油问题

 问题链接：http://topic.csdn.net/u/20091001/15/40BF4993-8ED7-45CC-968F-97C524DAE3C4.html

 

 问题描述：一个农夫养了一头牛，三年后，这头牛每年会生出1头牛，生出来的牛三年后，又可以每年生出一头牛……问农夫10年后有多少头牛?n年呢？

用Perl实现：

   my $count = 1;sub feedCow{my ($year,$age) = @_;$year++;$age++;if($year<=10){if($age>=3){$count++;feedCow($year,0);} feedCow($year,$age);}}feedCow(0,0);print("Total Cow is = ",$count);

 

输出结果为：Total Cow is = 28;