- %% Author: ztl
- %% Created: Nov 26, 2008
- %% Description: TODO: Add description to mylib
- -module(mylib).
- %%
- %% Include files
- %%
- %%
- %% Exported Functions
- %%
- -export([qsort/1]).
- %%
- %% API Functions
- %%
- qsort([]) -> [];
- qsort([Pivot|T]) ->
- qsort([X || X <- T, X < Pivot])
- ++ [Pivot] ++
- qsort([X || X <- T, X >= Pivot]).
- %%
- %% Local Functions
- %%
(test@ibm-f618075b95a)1> L=[23,6,2,9,27,400,78,45,61,82,14].
[23,6,2,9,27,400,78,45,61,82,14]
(test@ibm-f618075b95a)2> mylib:qsort(L).
[2,6,9,14,23,27,45,61,78,82,400]
稍微解释一下这段代码,关键部分是这一段
- qsort([]) -> [];
- qsort([Pivot|T]) ->
- qsort([X || X <- T, X < Pivot])
- ++ [Pivot] ++
- qsort([X || X <- T, X >= Pivot]).
- qsort([Pivot|T]) ->
- qsort([X || X <- T, X < Pivot])
- ++ [Pivot] ++
- qsort([X || X <- T, X >= Pivot]).
L=[23,6,2,9,27,400,78,45,61,82,14].
[]表示空的列表。
代码里有这样一段:
qsort([Pivot|T])
这个表示,qsort接受一个列表作为参数(不能为空),且将列表的第一个元素赋值给变量Pivot,剩下的元素辅助给变量T。
顺便提一句,erlang中的变量在赋值后,是不能改变的。
在来解释一下代码中的这句
- qsort([X || X <- T, X < Pivot]
[X || X <- T, X < Pivot]这样形式的代码,表示取出在T中,符合小于Pivot条件的元素组成列表X,
在分析一下整个代码,发现erlang写出的quicksort原来如此轻巧。令人赞叹。(当然,erlang的正真优势在于并行处理能力)