Implementazioni di algoritmi/Quicksort: differenze tra le versioni

 

===[[w:linguaggio C|C]]===

void sort(int array[], int begin, int end) {

int pivot, l, r;

}

}

 

//attenzione, il programma non è completo!

 

===[[w:C++|C++]]===

#include <algorithm>

#include <iterator>

}

}

 

=== [[w:Haskell|Haskell]] ===

Questo esempio mostra un quicksort generico, piuttosto che uno che funzioni con gli interi o con le stringhe.

 

import java.util.Comparator;

import java.util.Random;

// ATTENZIONE NON FUNZIONA! ATTENZIONE NON FUNZIONA! ATTENZIONE NON FUNZIONA!

// ATTENZIONE NON FUNZIONA! ATTENZIONE NON FUNZIONA! ATTENZIONE NON FUNZIONA!

 

Ecco un algoritmo funzionante solo con numeri interi :

// ATTENZIONE : per l'avvio fin deve essere pari a v.length-1

public void QuickSort( int [] v , int in , int fin ){

return i-1;

}

 

=== [[w:Joy_(programmazione)|Joy]] ===

===[[w:Lisp|Lisp]]===

 

 

(defun qsort (lst cmp / x y l e g)

)

)

 

===[[w:Pascal|Pascal]]===

 

procedure pQuickSort(var A: array of integer; iLo, iHi: integer);

var Lo, Hi, Pivot, T: Integer;

end;

 

 

=== [[w:Perl|Perl]] ===

 

sub qsort {

@_ or return ();

(qsort(grep $_ < $p, @_), $p, qsort(grep $_ >= $p, @_));

}

 

=== [[w:Perl|Perl 6]] ===

 

multi quicksort () { () }

multi quicksort (*$x, *@xs) {

(@pre.quicksort, $x, @post.quicksort);

}

 

=== [[w:Python|Python]] ===

 

Ordinamento in place:

def partition(array, begin, end, cmp):

pivot=array[end]

sort(array, cmp, i+1, end)

 

 

Algoritmo funzionale:

def quicksort(lista):

if len(lista)<=1: return lista

[pivot] +

quicksort([e for e in lista[1:] if e >= pivot]))

 

=== [[w:Prolog|Prolog]] ===

 

===[[w:Ruby|Ruby]]===

def qsort(list)

return [] if list.size == 0

qsort(less) + [x] + qsort(more)

end

 

=== [[w:Standard ML|SML]] ===

=== [[w:Lua|Lua]] ===

 

function quickSort(a,ini,u)

lo= ini

return a

end

 

== Altri progetti ==