Вывести каждый элемент списка на новой строке - Prolog

Формулировка задачи:

Интерпритация - swi-prolog

dogs(["лайка","борзая","дог","болонка"]).
/*
 Разделение на голову и хвост
 [Head|Tail]
*/
print_dogs([]).
print_dogs([X|Y]) :- write(X),nl,
print_dogs([Y]).

Выводит на запрос ?- dogs(X), print_list(X). [] .. [] А должен ?- dogs(X), print_list(X). лайка ... болонка

Решение задачи: «Вывести каждый элемент списка на новой строке»

textual
                            Листинг программы 
                        
                            dogs(['лайка','борзая','дог','болонка']).
 
% Разделение на голову и хвост
% [Head|Tail]
 
print_dogs([]):- !.
print_dogs([X|Y]):- writeln(X), print_dogs(Y).

Оцени полезность:

15 голосов , оценка 4 из 5

Похожие ответы