Re: HELP ME!!! PROLOG
[Re: Verman] #1874800970 14.05.09 16:38
Помогите вот с этим....
Список.
Предикат RAZDEL(X,Y,Z), истинный т. и т. т. когда
Y-это список элементов x на нечётных местах, а
z-список элементов X на чётных местах, например
RZDEL([a,b,c,d,e,f,g],[a,c,e,g],[b,d,f])
программа
domains*
il=integer*
predicates
razdel(il,il,il)
goal
razdel([1,2,3,4,5],L1,L2),write(L1,L2).
clauses
razdel([N,C|X],[C|X1],[N|X2]):-!,
razdel(x,x1,x2).
razdel(P,[],P).
1) {как изменить последнюю строку на две более простых строки,
состоящие из 2 фактов, чтобы программы была более понятна}
2) {Для каких P используется этот факт из последней строки}
3) Описание программы по каждой строке
Список.
Предикат RAZDEL(X,Y,Z), истинный т. и т. т. когда
Y-это список элементов x на нечётных местах, а
z-список элементов X на чётных местах, например
RZDEL([a,b,c,d,e,f,g],[a,c,e,g],[b,d,f])
программа
domains*
il=integer*
predicates
razdel(il,il,il)
goal
razdel([1,2,3,4,5],L1,L2),write(L1,L2).
clauses
razdel([N,C|X],[C|X1],[N|X2]):-!,
razdel(x,x1,x2).
razdel(P,[],P).
1) {как изменить последнюю строку на две более простых строки,
состоящие из 2 фактов, чтобы программы была более понятна}
2) {Для каких P используется этот факт из последней строки}
3) Описание программы по каждой строке