Du befindest dich hier: FSI Informatik » user » Bjørn   (Übersicht)

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
user:bjoern [20.10.2006 14:06] – Bjoernuser:bjoern [20.10.2006 14:16] (aktuell) – 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([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>