writeList([]).
writeList([H|T]) :-
write(H),
n1,
writeList(T).
дает
?-
% c:/users/mckie/onedrive/desktop/ex7 compiled 0.00 sec, 0 clauses
?- writeList([car, van, lorry]).
car
ERROR: Undefined procedure: n/1
ERROR: In:
ERROR: [9] n(1)
ERROR: [8] writeList([car, van, lorry]) at c:/users/mckie/onedrive/desktop/ex7.pl:2
ERROR: [7] <user>
Exception: (9) n(1) ?
правильный вывод должен быть:
car
van
lorry