language: Prolog (swi) (swipl 5.6.64)
date: 113 days 10 hours ago
link:
visibility: public
1
2
3
4
5
6
7
8
9
10
11
12
quicksort([Kopf|Rest], SortierteListe, X ) :-
        teilen( Kopf, Rest, Kleiner, Groesser),
        quicksort(Kleiner, Sortierte_Liste, [Kopf|Rest2]),
        quicksort(Groesser, Rest2, X ).
quicksort( [], Liste, Liste ).
 
   teilen(_, [], [], []).
   teilen(Element, [Kopf|Rest], [Kopf|Kleiner], Groesser):-
            Kopf < Element, !,
            teilen(Element, Rest, Kleiner, Groesser).
   teilen(Element, [Kopf|Rest], Kleiner, [Kopf|Groesser]):-
            teilen(Element, Rest, Kleiner, Groesser).
  • upload with new input
  • result: Success     time: 0.02s    memory: 6204 kB     returned value: 0

    quicksort([1,5,4,1], L, X).
    Warning: /home/jNMplY/prog.pl:1:
    	Singleton variables: [SortierteListe, Sortierte_Liste]
    
    true 
    EOF: halt