16 lines
480 B
Forth
16 lines
480 B
Forth
|
namespace Sanchime.Algrithm.Sort
|
||
|
|
[<AutoOpen>]
|
||
|
|
module Bubble =
|
||
|
|
|
||
|
|
let rec bsort sorted = function
|
||
|
|
| [] -> []
|
||
|
|
| [x] -> [x]
|
||
|
|
| xs ->
|
||
|
|
let sxs = xs |> swap sorted
|
||
|
|
if sxs = xs then xs else sxs |> bsort sorted
|
||
|
|
// 比较相邻元素，反复交换
|
||
|
|
and swap sorted = function
|
||
|
|
| [] -> []
|
||
|
|
| [x] -> [x]
|
||
|
|
| x::y::xs ->
|
||
|
|
if sorted x y then x::(y::xs |> swap sorted) else y::(x::xs |> swap sorted)
|