原code参见
http://en.literateprograms.org/Bubble_sort_(Erlang)
虽然原文有解释,可能还是不太好理解erlang写得这么间断晦涩的程序。
1 % Copyright (c) 2012 the authors listed at the following URL, and/or
2 % the authors of referenced articles or incorporated external code:
3 % http://en.literateprograms.org/Bubble_sort_(Erlang)?action=history&offset=20080418062156
4 %
5 % Permission is hereby granted, free of charge, to any person obtaining
6 % a copy of this software and associated documentation files (the
7 % "Software"), to deal in the Software without restriction, including
8 % without limitation the rights to use, copy, modify, merge, publish,
9 % distribute, sublicense, and/or sell copies of the Software, and to
10 % permit persons to whom the Software is furnished to do so, subject to
11 % the following conditions:
12 %
13 % The above copyright notice and this permission notice shall be
14 % included in all copies or substantial portions of the Software.
15 %
16 % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
17 % EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
18 % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
19 % IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
20 % CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
21 % TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
22 % SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
23 %
24 % Retrieved from: http://en.literateprograms.org/Bubble_sort_(Erlang)?oldid=13141
25
26 -module(bubblesort).
27 -export([sort/1]).
28 -import(lists, [reverse/1]).
29
30 sort(L) -> sort(L, [], true).
31
32 sort([], L, true) -> reverse(L);
33
34 sort([], L, false) -> sort(reverse(L), [], true);
35 sort([ X, Y | T ], L, _) when X > Y ->
36 sort([ X | T ], [ Y | L ], false);
37 sort([ X | T ], L, Halt) -> sort(T, [ X | L ], Halt).
我们先看一个例子吧:
sort([2,4,3,5,1])
#round 1
=> sort([2,4,3,5,1], [], true)
=> sort([4,3,5,1], [2], true)
=> sort([4,5,1], [3,2], false)
=> sort([5,1], [4,3,2], false)
=> sort([5], [1,4,3,2], false)
=> sort([], [5,1,4,3,2], false)
=> sort([2,3,4,1,5], [], true)
# round 2
=> sort([3,4,1,5], [2], true)
=> sort([4,1,5], [3,2], true)
=> sort([4,5], [1,3,2], false)
=> sort([5], [4,1,3,2], false)
=> sort([], [5,4,1,3,2], false)
=> sort([2,3,1,4,5], [], true)
# round 3
=> sort([3,1,4,5], [2], true)
=> sort([3,4,5], [1,2], false)
=> sort([4,5], [3,1,2], false)
=> sort([5], [4,3,1,2], false)
=> sort([], [5,4,3,1,2], false)
=> sort([2,1,3,4,5], true)
#round 4
=> sort([2,3,4,5], [1], false)
=> sort([3,4,5], [2,1], false)
=> sort([4,5], [3,2,1], false)
=> sort([5], [4,3,2,1], false)
=> sort([], [5,4,3,2,1], false)
=> sort([1,2,3,4,5], [], true)
#round 5
=> sort([2,3,4,5], [1], true)
=> sort([3,4,5],[2,1], true)
=> sort([4,5],[3,2,1], true)
=> sort([5],[4,3,2,1], true)
=> sort([], [5,4,3,2,1], true)
=> [1,2,3,4,5]
冒泡排序的每一轮,都找出了一个最大值沉到队伍的最后面.如果本轮全部是排好序的,也即不需要下一轮了,那么flag就是true,否则是false.
分享到:
相关推荐
《Erlang之父:为什么面向对象很糟糕》PDF 《Erlang之父:为什么面向对象很糟糕》PDF 《Erlang之父:为什么面向对象很糟糕》PDF 《Erlang之父:为什么面向对象很糟糕》PDF 《Erlang之父:为什么面向对象很糟糕》PDF
编写分布式的Erlang程序:陷阱和对策
Windows上安装RabbitMQ服务,依赖的Erlang语言安装包:otp_win64_25.2.1.exe 重要:Erlang安装程序必须【以管理员身份运行】,否则RabbitMQ安装程序相关信息不会在注册表项中不存在。
书中兼顾了顺序编程、并发编程和分布式编程,重点介绍如何编写并发和分布式的Erlang程序以及如何在多核CPU上自动加速程序,并深入地讨论了开发Erlang应用中至关重要的文件和网络编程、OTP、ETS和DETS等主题。...
编写分布式的 Erlang 程序:陷阱和对策 硝烟中的Erlang 深入底层: erlang VM基于多核处理器的可伸缩性特征 erlang VM内部数据共享机制 erlang 消息传递机制 文章地址:...
erlang程序设计第二版习题答案 ,是我自己写的习题解答,也对照过网上的一些答案,相对来说是更加简洁和符合题意的解答,不过后面几章因为时间问题没有写完,有问题或者意见可以私信找我。
Erlang程序设计(第2版).pdf 高清带目录。 .
erlang程序设计 erlang入门手册
Erlang程序设计,包含完整目录和全套源码
[Erlang程序设计]源代码,包括了erlang程序设计一书全部实例代码;
Erlang程序设计 第2版 Erlang程序设计 第2版Erlang程序设计 第2版
erlang-systemd:用于Erlang应用程序的systemd实用程序
erlang程序设计 的相关代码例子程序,比较多了,希望对有需要的童鞋有帮助
erlang 程序设计 源码 erlang 程序设计 源码 erlang 程序设计 源码erlang 程序设计 源码
Erlang程序设计中文版 完整书签 erlang programming
erlang_term:Erlang术语信息
”程序。 让我们从Haskell代码开始。 在这里,我们使用createSelf初始化ffi,并使用createMBox创建一个邮箱。 然后,我们用pid发送问候语到在Erlang节点erl@127.0.0.1上运行的注册进程p 。 我们希望得到一个答案,...
尝试作为独立的Erlang应用程序: git clone git://github.com/arcusfelis/xapian-erlang-bindings.git xapian cd xapian ./rebar get-deps compile ./start-dev.sh 添加为rebar.config的依赖rebar.config :
erlang 程序设计(第二版) 中文 pdf