作者CindyLinz (Cindy Wang)
看板Perl
标题[闲聊] Perl语言讲费氏数列..
时间Tue Nov 4 01:57:05 2014
这程式执行方式是这样:
$ perl fibonacci.pl 5
8
$ perl fibonacci.pl 10
89
以下是 fibonacci.pl 的程式码 :p
use Lingua::Sinica::PerlYuYan;
用通兮
副费始
回壹倘起此
内零外小二合兮
费起此
内零外减壹
合正费起此
内零外减贰合兮
终印费起纯青羊白猪
内零外合又纯分兮
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 112.121.80.249
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/Perl/M.1415037427.A.E59.html
1F：推 skenbo0916: O____________Q 11/04 02:24
2F：推 flu: 看到git上有洋人的commit, 像是「倘」字是他贡献的 :D 11/04 03:24
3F：→ CindyLinz: XD 11/04 22:03
4F：→ CindyLinz: 昨天我丢个没头没尾的一句「阵青羊白猪」给 AudreyT 11/04 22:04
5F：→ CindyLinz: 她就回我 @ARGV 耶.. 真是太恐怖惹 XDXD 11/04 22:04
6F：推 flu: 我猜接着就开始用这套术语闲话家常了 只是很难接话 11/05 02:23
7F：→ flu: C: 大风起兮 AT:...compile error ? 11/05 02:24
8F：→ CindyLinz: 才不会..... OAO 11/05 03:40
9F：推 Neisseria: 这是 Perl 吗？为什麽觉得这段完全看不懂？@_@ 11/05 09:12
10F：推 flu: PerlYuYan能把source code中的汉字符号转成英数字, 再执行 11/05 11:31
11F：→ flu: 这中间的转换关系定义在PerlYuYan.pm中 上面就是拿它作文章:D 11/05 11:34
12F：推 Neisseria: 这真的太有材了 XD，突然觉得原来的 Perl 还蛮简单的嘛 11/05 13:58
14F：→ CindyLinz: 用=use 通=utf8 兮=; 副=sub 费=费 始={ 回=return 11/05 15:29
15F：推 herculus6502: 有才+1 11/09 21:54