Run Code
|
Code Wall
|
Users
|
Misc
|
Feedback
|
About
|
Login
|
Theme
|
Privacy
is_sort
%Проверить, является ли список отсортированным по возрастанию %KB %functions is_sorted_asc([_|[]]). is_sorted_asc([H|[X|Y]]) :- H=<X, is_sorted_asc([X|Y]). is_sorted_desc([_|[]]). is_sorted_desc([H|[X|Y]]) :- H>=X, is_sorted_desc([X|Y]). is_sorted(X) :- is_sorted_desc(X),!;is_sorted_asc(X),!.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Prolog_Test(09-03-2017)
00 Huhu-Dea
Prolog_test
2da operación prolog.2
prolog 2da operación
Test2
Equipo8
Einstein Raetsel
List intro
2da operación
Please log in to post a comment.