Du befindest dich hier: FSI Informatik » user » Bjørn
Unterschiede
Hier werden die Unterschiede zwischen zwei Versionen der Seite angezeigt.
Beide Seiten, vorherige ÜberarbeitungVorherige Überarbeitung | Letzte ÜberarbeitungBeide Seiten, nächste Überarbeitung | ||
user:bjoern [20.10.2006 14:08] – Bjoern | user:bjoern [20.10.2006 14:14] – Bjoern | ||
---|---|---|---|
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, |
- | (bagof(BagA, | + | |
(bagof(BagB, | (bagof(BagB, | ||
- | qs(As, L), qs(Bs, R). | + | quicksort(As, L), quicksort(Bs, R), flatten([L, E, R], Return). |
</ | </ | ||