Вывести на экран элементы списка по 3 в строке, отделяя элементы запятыми (Turbo Prolog)
Формулировка задачи:
Вывести на экран элементы списка по 3 в строке отделяя элементы запятыми , после последнего элементы поставить точку.
Помогите написать данную программку пожалуйста.
Решение задачи: «Вывести на экран элементы списка по 3 в строке, отделяя элементы запятыми (Turbo Prolog)»
textual
Листинг программы
domains
int=integer
intl=int*
predicates
task(intl)
clauses
task([X,Y,Z]) :- write(X),write(","),write(Y),write(","),write(Z),write("."),nl.
task([X,Y]) :- write(X),write(","),write(Y),write("."),nl.
task([X]) :- write(X),write("."),nl.
task([]).
task([X,Y,Z|T]) :- write(X),write(","),write(Y),write(","),write(Z),write(","),nl,task(T).