使用Erlang实现简单的排序算法：快速排序，冒泡排序，插入排序

最新推荐文章于 2025-04-02 19:59:06 发布

转载最新推荐文章于 2025-04-02 19:59:06 发布 · 215 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/unqiang/p/9203391.html

文章标签：

#数据结构与算法

本文介绍了三种基本的排序算法：快速排序、冒泡排序和插入排序，并提供了Erlang语言的具体实现。通过对这些算法的理解和实现，读者可以更好地掌握排序算法的工作原理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

【排序算法】

-module(sort).

-compile(export_all).


%%快速排序
qsort([]) -> [];  
qsort([Pivot|T]) ->  
    qsort([X || X <- T,X < Pivot])  
    ++ [Pivot] ++  
        qsort([X || X <-T,X >= Pivot]). 


%%冒泡排序
bubble_sort(L) -> bubble_sort(L,len(L)).  
bubble_sort(L,1) -> L;  
bubble_sort([H|T],N) ->   
    Result = bubble_once(H,T),  
    io:format("Result is  ~p~n",[Result]),  
    bubble_sort(Result,N-1).


bubble_once(H,[]) -> [H];  
bubble_once(X,[H|T]) ->  
    if X > H ->  
            [H|bubble_once(X,T)];  
        true ->  
            [X|bubble_once(H,T)]  
    end.  
  
len([]) -> 0;  
len([_H|T]) -> 1 + len(T).


%%插入排序
insert_sort(L) -> insert_sort([],L).  
insert_sort(L,[]) -> L;  
insert_sort(L,[H|T]) ->  
    insert_sort(normal(H,L),T).  
  
normal(X,[]) -> [X];  
normal(X,[H|T]) ->  
    if X > H ->  
            [H|normal(X,T)];  
        true ->  
            [X|[H|T]]  
    end.