Różnice
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] |
**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]). |
| |