免费注册 查看新帖 |

ChinaUnix.net

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

[函数] erlang 去重 [复制链接]

论坛徽章:
26
水瓶座
日期:2014-08-22 21:06:34程序设计版块每日发帖之星
日期:2015-11-24 06:20:00程序设计版块每日发帖之星
日期:2015-11-25 06:20:0015-16赛季CBA联赛之新疆
日期:2015-12-19 19:05:48IT运维版块每日发帖之星
日期:2015-12-25 06:20:31IT运维版块每日发帖之星
日期:2015-12-25 06:20:31IT运维版块每日发帖之星
日期:2015-12-25 06:20:3315-16赛季CBA联赛之上海
日期:2016-04-15 19:51:31程序设计版块每日发帖之星
日期:2016-04-17 06:23:29程序设计版块每日发帖之星
日期:2016-04-23 06:20:00程序设计版块每日发帖之星
日期:2016-05-26 06:20:00每日论坛发贴之星
日期:2016-05-26 06:20:00
发表于 2014-10-13 16:20 |显示全部楼层
lists:usort/1
  1. 11> A=[1,1,22,3,33,22].
  2. [1,1,22,3,33,22]
  3. 12> lists:usort(A).
  4. [1,3,22,33]
  5. 13>
复制代码

论坛徽章:
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-19 22:01 |显示全部楼层
也是用er编写的
  1. -module (un).
  2. -mode (compile).
  3. -define (PP (V), io:format ("~s = ~p~n", [??V, V])).

  4. unique (A) -> unique (A, []).
  5. unique ([], A) -> lists:reverse (A);
  6. unique ([H|T], A) ->
  7.     case lists:member (H, A) of
  8.       true -> unique (T, A);
  9.       ____ -> unique (T, [H|A])
  10.     end.

  11. unik (L) -> unik (L, sets:new()).
  12. unik ([], S) -> sets:to_list (S);
  13. unik ([H|T], S) ->
  14.     case sets:is_element (H, S) of
  15.       true -> unik (T, S);
  16.       ____ -> unik (T, sets:add_element (H, S))
  17.     end.

  18. main (_) ->
  19.     L = [1, 2, 1, 3, 4, 3, 5, 5, 5, 1, 1, 1, 2, 2, 3, 3, 4, 5, 2],
  20.     TU1 = timer:tc (fun unique/1, [L]),
  21.     TU2 = timer:tc (fun unik/1, [L]),
  22.     TU3 = timer:tc (fun lists:usort/1, [L]),
  23.     ?PP (L), ?PP (TU1), ?PP (TU2), ?PP (TU3),
  24. halt().
复制代码
  1. L = [1,2,1,3,4,3,5,5,5,1,1,1,2,2,3,3,4,5,2]
  2. TU1 = {5,[1,2,3,4,5]}
  3. TU2 = {23,[3,2,5,1,4]}
  4. TU3 = {6,[1,2,3,4,5]}
复制代码

论坛徽章:
26
水瓶座
日期:2014-08-22 21:06:34程序设计版块每日发帖之星
日期:2015-11-24 06:20:00程序设计版块每日发帖之星
日期:2015-11-25 06:20:0015-16赛季CBA联赛之新疆
日期:2015-12-19 19:05:48IT运维版块每日发帖之星
日期:2015-12-25 06:20:31IT运维版块每日发帖之星
日期:2015-12-25 06:20:31IT运维版块每日发帖之星
日期:2015-12-25 06:20:3315-16赛季CBA联赛之上海
日期:2016-04-15 19:51:31程序设计版块每日发帖之星
日期:2016-04-17 06:23:29程序设计版块每日发帖之星
日期:2016-04-23 06:20:00程序设计版块每日发帖之星
日期:2016-05-26 06:20:00每日论坛发贴之星
日期:2016-05-26 06:20:00
发表于 2016-04-20 09:17 |显示全部楼层
回复 2# patagonia2


    好奇你是怎么运行的? main(_) .....

论坛徽章:
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-20 11:57 |显示全部楼层
回复 3# shijiang1130


    escript file.erl

论坛徽章:
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 15:19 |显示全部楼层
er语言中也有宏的概念,宏也就是宏
  1. -define (Uniq(V), sets:to_list(sets:from_list(L))).
复制代码
很相似。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

数据风云,十年变迁
DTCC 第十届中国数据库技术大会已启航!

2019年5月8日~5月10日,由IT168旗下ITPUB企业社区平台主办的第十届中国数据库技术大会(DTCC2019),将在北京隆重召开。大会将邀请百余位行业专家,就热点技术话题进行分享,是广大数据领域从业人士的又一次年度盛会和交流平台。与SACC2018类似,本届大会将采用“3+2”模式:3天传统技术演讲+2天深度主题培训。大会不仅提供超100场的主题演讲,还会提供连续2天的深度课程培训,深化数据领域的项目落地实践方案。
DTCC2019,一场值得期待的数据技术盛会,殷切地希望您报名参与!

活动入口>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP