diff --git a/quicksort.pl b/quicksort.pl index c18564e..1ed30fe 100644 --- a/quicksort.pl +++ b/quicksort.pl @@ -1,6 +1,7 @@ % Implementacja Quicksorta w Prologu % Autor korpo, https://github.com/korpo +project_dedalus_quicksort([],[]). project_dedalus_quicksort([X],[X]). project_dedalus_quicksort([X|Xs],Ys) :- project_dedalus_quicksort_helper_partition(Xs,X,Left,Right), diff --git a/tests.pl b/tests.pl index fbaf4d2..62c42ab 100644 --- a/tests.pl +++ b/tests.pl @@ -7,7 +7,7 @@ sort(L, Sorted). test(quicksort,[nondet]) :- - L=[8,4,2,1,3,6,5,7,12,10,9,11,14,13,15], + randseq(15,15,L), project_dedalus_quicksort(L, Sorted), sort(L, Sorted).