perl 解答奶油问题

 问题链接：http://topic.youkuaiyun.com/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;