免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 46893 | 回复: 2

[算法] 谁会算斐波那契数列 [复制链接]

论坛徽章:
12
射手座
日期:2014-10-02 11:31:29程序设计版块每日发帖之星
日期:2016-05-28 06:20:00每日论坛发贴之星
日期:2016-05-27 06:20:00程序设计版块每日发帖之星
日期:2016-05-27 06:20:00程序设计版块每日发帖之星
日期:2016-05-25 06:20:00每日论坛发贴之星
日期:2016-05-24 06:20:00程序设计版块每日发帖之星
日期:2016-05-24 06:20:0015-16赛季CBA联赛之深圳
日期:2016-05-23 15:33:59程序设计版块每日发帖之星
日期:2016-05-20 06:20:00程序设计版块每日发帖之星
日期:2016-04-26 06:20:00神斗士
日期:2015-12-03 09:27:3215-16赛季CBA联赛之八一
日期:2016-12-29 09:56:05
发表于 2016-05-22 14:28 |显示全部楼层
求斐波那契数列最快算法

大家可以求Fibonacci的第100项试试,
感受一下这样递归会慢到什么程度。
在我的机器上,
运行了1个多小时也没有结果。
  1. %-module(fibonacci).
  2. -mode(native).
  3. -define (PP (V), io:format ("~s = ~p~n", [??V, V])).

  4. fibonacci (0) -> 0;
  5. fibonacci (1) -> 1;
  6. fibonacci (N) -> fibonacci (N - 1) + fibonacci (N - 2).

  7. main(_) ->
  8.     F = fibonacci (100),
  9.     ?PP (F),
  10. halt().
复制代码
求大圣的高效写法。

论坛徽章:
12
射手座
日期:2014-10-02 11:31:29程序设计版块每日发帖之星
日期:2016-05-28 06:20:00每日论坛发贴之星
日期:2016-05-27 06:20:00程序设计版块每日发帖之星
日期:2016-05-27 06:20:00程序设计版块每日发帖之星
日期:2016-05-25 06:20:00每日论坛发贴之星
日期:2016-05-24 06:20:00程序设计版块每日发帖之星
日期:2016-05-24 06:20:0015-16赛季CBA联赛之深圳
日期:2016-05-23 15:33:59程序设计版块每日发帖之星
日期:2016-05-20 06:20:00程序设计版块每日发帖之星
日期:2016-04-26 06:20:00神斗士
日期:2015-12-03 09:27:3215-16赛季CBA联赛之八一
日期:2016-12-29 09:56:05
发表于 2016-05-22 14:33 |显示全部楼层
ER 是一门被设计用于编写并发、实时、分布式系统的新语言。
如何并发? 求斐波那契数列 ?

论坛徽章:
12
射手座
日期:2014-10-02 11:31:29程序设计版块每日发帖之星
日期:2016-05-28 06:20:00每日论坛发贴之星
日期:2016-05-27 06:20:00程序设计版块每日发帖之星
日期:2016-05-27 06:20:00程序设计版块每日发帖之星
日期:2016-05-25 06:20:00每日论坛发贴之星
日期:2016-05-24 06:20:00程序设计版块每日发帖之星
日期:2016-05-24 06:20:0015-16赛季CBA联赛之深圳
日期:2016-05-23 15:33:59程序设计版块每日发帖之星
日期:2016-05-20 06:20:00程序设计版块每日发帖之星
日期:2016-04-26 06:20:00神斗士
日期:2015-12-03 09:27:3215-16赛季CBA联赛之八一
日期:2016-12-29 09:56:05
发表于 2016-05-23 16:07 |显示全部楼层
本帖最后由 patagonia2 于 2016-05-23 16:17 编辑

觉得很不错 fly
哪一个比较好?
  1. %-module(fibonacci).
  2. -define (PP (V, N), io:format ("~s ~p = ~p~n", [??V, N, V])).

  3. fibonacci (A) when A < 2 -> A;
  4. fibonacci (A) -> fibonacci (2, A + 1, 0, 1).
  5. fibonacci (A, A, _, B) -> B;
  6. fibonacci (A0, A, B, C) -> fibonacci (A0 + 1, A, C, B + C).

  7. main(_) ->
  8.     N = 100,
  9.     Fib = fibonacci (N),
  10.     ?PP (Fib, N),
  11. halt().
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP