继续Perl学习 递归

有一段时间学习PYTHON，很伤心啊，版本太新，好多东西用起来不方便。

还是继续用我的小***perl吧，我相信perl会解决掉我遇到的大部分问题！

一、统计随机数出现频次

--源代码

<a href="http://s3.51cto.com/wyfs02/M02/73/FF/wKioL1YMGt7C-ROKAAGrEvCeMfo297.jpg" target="_blank"></a>

--- 结果显示

<a href="http://s3.51cto.com/wyfs02/M00/74/02/wKiom1YMGwvwulvdAACJPNhc3c4487.jpg" target="_blank"></a>

二、递归应用，阶乘算法

--代码

<a href="http://s3.51cto.com/wyfs02/M00/73/FF/wKioL1YMG1XRAd2qAAC-pnYHqqQ486.jpg" target="_blank"></a>

-- 结果

<a href="http://s3.51cto.com/wyfs02/M01/74/02/wKiom1YMG3HSauHGAAEJwIoZdnM853.jpg" target="_blank"></a>

本文转自 tiger506 51CTO博客，原文链接：http://blog.51cto.com/tiger506/1699705，如需转载请自行联系原作者