忘记密码   免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 4197 | 回复: 2

[其他] 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-04-29 16:09 |显示全部楼层
比较下 tak
er 0.17真的快了不少 不科学啊
perl 17
python 6.5

er
  1. %-module(e).
  2. -module(tak).
  3. -mode(native).
  4. -define(P, io:format).
  5. -export([tak/3, bm/0, bm_testcase/0]).

  6. tak(X, Y, Z) ->
  7.   if
  8.     Y >= X -> Z;
  9.     true ->
  10.       tak(
  11.         tak(X - 1, Y, Z),
  12.         tak(Y - 1, Z, X),
  13.         tak(Z - 1, X, Y)
  14.       )
  15.   end
  16. .

  17. bm() ->
  18.   lists:foreach(
  19.     fun(_) ->
  20.       {Time, _} = timer:tc(tak, bm_testcase, []),
  21.       TimeSec = Time / 1000000,
  22.       ?P("~p~n", [TimeSec])
  23.     end,
  24.     lists:seq(1, 5)
  25.   )
  26. .

  27. bm_testcase() ->
  28.   lists:foreach(
  29.     fun(_) ->
  30.       tak:tak(24, 16, 8)
  31.     end,
  32.     lists:seq(1, 10)
  33.   )
  34. .


  35. main(_) ->
  36.     bm(),
  37. halt().
复制代码
python
  1. use Time::HiRes qw(time);

  2. $|++;

  3. bm_tak(5);

  4. sub bm_tak {
  5.     my $n = shift;

  6.     for ( 0 .. $n ) {
  7.         my ( $i, $x ) = ( 0, time );
  8.         while ( $i < 10 ) {
  9.             tak( 24, 16, 8 );
  10.             $i++;
  11.         }
  12.         print time - $x . "\n";
  13.     }
  14. }

  15. sub tak {
  16.     my ( $x, $y, $z ) = @_;

  17.     if ( $y >= $x ) {
  18.         return $z;
  19.     }
  20.     else {
  21.         return tak(
  22.             tak( $x - 1, $y, $z ),
  23.             tak( $y - 1, $z, $x ),
  24.             tak( $z - 1, $x, $y )
  25.         );
  26.     }
  27. }


复制代码
perl

  1. import time



  2. def tak(x, y, z):
  3.     if y >= x: return z
  4.     return tak(tak(x - 1, y, z), tak(y - 1, z, x), tak(z - 1, x, y))


  5. for k in range(0, 5):
  6.     t = time.time()
  7.     i = 0
  8.     while i < 10:
  9.         tak(24, 16, 8)
  10.         i += 1
  11.     print("%.02f" % (time.time() - t))
复制代码

论坛徽章:
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-17 17:37 |显示全部楼层
真的不科学啊

论坛徽章:
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-21 14:00 |显示全部楼层
不科学啊
真的不科学啊

er  0.17
perl   17
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:wangnan@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP