Du befindest dich hier: FSI Informatik » user » Bjørn

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen der Seite angezeigt.

Link zu der Vergleichsansicht

Beide Seiten, vorherige ÜberarbeitungVorherige Überarbeitung
Nächste Überarbeitung		Vorherige Überarbeitung
Letzte ÜberarbeitungBeide Seiten, nächste Überarbeitung
user:bjoern [20.10.2006 13:59] – Bjoernuser:bjoern [20.10.2006 14:14] – Bjoern
Zeile 1: Zeile 1:
 ====== Bjørn ====== ====== Bjørn ======
  
-//<<Ein gutes Gedächtnis merkt sich nicht alles, sondern vergisst das Unwichtige>>// Peter Bamm+//<<Ein gutes Gedächtnis merkt sich nicht alles, sondern vergisst das Unwichtige.>>// Peter Bamm
  
  
Zeile 38: Zeile 38:
 **Prolog:** **Prolog:**
 <code Prolog> <code Prolog>
-quicksort(Ls, Sorted) :- qs(Ls, Hs), flatten(Hs, Sorted). +quicksort([], []). 
-qs([], []). +quicksort([E | Ls], Return) :-
-qs([A],[A]). +
-qs([E | Ls], [L , E , R]) :-+
  (bagof(BagA, (member(BagA, Ls), BagA < E), As); As = []),  (bagof(BagA, (member(BagA, Ls), BagA < E), As); As = []),
  (bagof(BagB, (member(BagB, Ls), BagB > E), Bs) ; Bs = []),  (bagof(BagB, (member(BagB, Ls), BagB > E), Bs) ; Bs = []),
- qs(As, L), qs(Bs, R).+ quicksort(As, L), quicksort(Bs, R), flatten([L, E, R], Return).
 </code> </code>