Sorting algorithms/Quicksort: Difference between revisions

=={{header|Miranda}}==

<syntaxhighlight lang="miranda">main :: [sys_message]

main = [Stdout ("Before: " ++ show testlist ++ "\n"),

Stdout ("After: " ++ show (quicksort testlist) ++ "\n")]

where testlist = [4,65,2,-31,0,99,2,83,782,1]

quicksort [] = []

quicksort [x] = [x]

quicksort xs = (quicksort less) ++ equal ++ (quicksort more)

where pivot = hd xs

less = [x | x<-xs; x<pivot]

equal = [x | x<-xs; x=pivot]

more = [x | x<-xs; x>pivot]</syntaxhighlight>

{{out}}

<pre>Before: [4,65,2,-31,0,99,2,83,782,1]

After: [-31,0,1,2,2,4,65,83,99,782]</pre>