Continue Perl learning recursion

There was a time to learn python, very sad Ah, the version is too new, many things are inconvenient to use.

Continue to use my little ***perl, I believe Perl will solve most of the problems I encountered!

Statistical random number Occurrence frequency

--Source code

650) this.width=650; "src=" Http://s3.51cto.com/wyfs02/M02/73/FF/wKioL1YMGt7C-ROKAAGrEvCeMfo297.jpg "title=" 2015-10-01_012346.png "alt=" Wkiol1ymgt7c-rokaagrevcemfo297.jpg "/>

---results show

650) this.width=650; "src=" Http://s3.51cto.com/wyfs02/M00/74/02/wKiom1YMGwvwulvdAACJPNhc3c4487.jpg "title=" 2015-10-01_012518.png "alt=" Wkiom1ymgwvwulvdaacjpnhc3c4487.jpg "/>

Second, recursive application, factorial algorithm

--code

650) this.width=650; "src=" Http://s3.51cto.com/wyfs02/M00/73/FF/wKioL1YMG1XRAd2qAAC-pnYHqqQ486.jpg "title=" 2015-10-01_012621.png "alt=" Wkiol1ymg1xrad2qaac-pnyhqqq486.jpg "/>

-Results

650) this.width=650; "src=" Http://s3.51cto.com/wyfs02/M01/74/02/wKiom1YMG3HSauHGAAEJwIoZdnM853.jpg "title=" 2015-10-01_012702.png "alt=" Wkiom1ymg3hsauhgaaejwiozdnm853.jpg "/>

This article is from the "Strive for Excellence" blog, please be sure to keep this source http://tiger506.blog.51cto.com/318536/1699705

Continue Perl learning recursion