Różnice między wybraną wersją a wersją aktualną.
| Nowa wersja | Poprzednia wersja | ||
|
pl:prolog:pllib:ascending_sorting [2019/06/27 15:50] 127.0.0.1 edycja zewnętrzna |
pl:prolog:pllib:ascending_sorting [2023/01/23 11:10] (aktualna) ikaf [Download] |
||
|---|---|---|---|
| Linia 6: | Linia 6: | ||
| **Source**: PROLOG str. 190 Wydawnictwo PLJ Warszawa 1991 ISBN 83-85190-63-5 | **Source**: PROLOG str. 190 Wydawnictwo PLJ Warszawa 1991 ISBN 83-85190-63-5 | ||
| ===== Download ===== | ===== Download ===== | ||
| - | Program source code: {{ascending_sorting.pl}} | + | Program source code: {{ :pl:prolog:pllib:ascending_sorting.pl |}} |
| ===== Listing ===== | ===== Listing ===== | ||
| <code prolog> | <code prolog> | ||
| rosn([], []). | rosn([], []). | ||
| rosn([X|T], S1) :- rosn(T, St), wstaw(X, St, S1). | rosn([X|T], S1) :- rosn(T, St), wstaw(X, St, S1). | ||
| - | wstaw(X, [Y|S1], [Y|Sl1]) :- XY, !, wstaw(X, S1, Sl1). | + | wstaw(X, [Y|S1], [Y|Sl1]) :- X>Y, !, wstaw(X, S1, Sl1). |
| wstaw(X, S1, [X|S1]). | wstaw(X, S1, [X|S1]). | ||
