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

ChinaUnix.net

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

[算法] 在线等,谁会算回文 [复制链接]

论坛徽章:
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:42 |显示全部楼层
  • 事实上,一个回文从两头读是相同的。
  • 由两位数相乘得到的最大回文是:9009=91*99。


试求得由 三位数 相乘得到的 最大 回文。
题目很容易理解。
但是,代码写出来困难。

大圣谁会算回文。
希望大圣能够指导, 在线等,急死了

论坛徽章:
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 13:37 |显示全部楼层
  1. %-module(e).
  2. -define (PP (V), io:format ("~s = ~p~n", [??V, V])).

  3. palindrome(X) ->
  4.     Y = integer_to_list(X),
  5.     Y == lists:reverse(Y).
  6. main(_) ->
  7.     TEST1 = palindrome(12321),
  8.     TEST2 = palindrome(123210),
  9.     ?PP (TEST1), ?PP (TEST2),
  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-23 13:48 |显示全部楼层
谁会算

100 * 100 到 999 * 999

论坛徽章:
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 15:35 |显示全部楼层
感受一下这个慢
谁会折腾高效的写法。
  1. %-module(x).

  2. -define (P (V), io:format ("~p ", [V])).
  3. -define (PP (V), io:format ("~n~s = ~p~n", [??V, V])).

  4. loop (A, A, A, _, MAX) -> MAX;
  5. loop (A, B, B, P, MAX) -> loop (A + 1, A + 1, B, P, MAX);
  6. loop (A, B, C, P, MAX) ->
  7.     AB = A * B,
  8.     case AB > MAX andalso P(AB) of
  9.         true -> ?P (AB), loop (A, B + 1, C, P, AB);
  10.         ____ -> loop (A, B + 1, C, P, MAX) end.
  11.         
  12. main(_) ->
  13.     Palindrome = fun (X) ->
  14.         Y = integer_to_list (X),
  15.         Y == lists:reverse (Y) end,
  16.     A   = 100,
  17.     B   = 999 + 1,
  18.     MAX = loop ( A, A, B, Palindrome, 0),
  19.     ?PP (MAX),
  20. 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-24 17:15 |显示全部楼层
1.2 秒
-mode(native).
  1. -module(p).
  2. -mode(native).
  3. -define(P(V), io:format("~p ", [V])).
  4. -define (PP (V), io:format ("~n~s = ~p~n", [??V, V])).


  5. loop(A, A, A, _, MAX) -> MAX;
  6. loop(A, B, B, P, MAX) -> loop(A + 1, A + 1, B, P, MAX);
  7. loop(A, B, C, P, MAX) ->
  8.     AB = A * B,
  9.     case AB > MAX andalso P(AB) of
  10.       true -> ?P(AB), loop(A, B + 1, C, P, AB);
  11.       ____ -> loop(A, B + 1, C, P, MAX)
  12.     end.
  13.    
  14. palindrome(X) ->
  15.     Y = integer_to_list(X),
  16.     Y == lists:reverse(Y).

  17. main(_) ->
  18.     A = 100,
  19.     B = 999 + 1,
  20.     Palindrome = fun (Y) -> palindrome(Y) end,
  21.     MAX = loop(A, A, B, Palindrome, 0),
  22.     ?PP(MAX),
  23. 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-24 18:01 |显示全部楼层
执行结果快了12倍,
这个性能的提升还是比较可观的。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP