Списки в прологе

@JleHuH213 · Регистрация: 22.10.2012

Студворк — интернет-сервис помощи студентам

Перенести в конец списка [1, 2, 3, 4, 5] все четные элементы.

@Catstail · 20.09.2015, 12:12

Например, так:

Prolog

domains
int=integer
intl=int*
 
predicates
filtr_odd(intl,intl)
filtr_even(intl,intl)
append(intl,intl,intl)
task(intl,intl)
 
clauses
append([],X,X).
append([H|T],X,[H|Y]) :- append(T,X,Y).
 
filtr_odd([],[]).
filtr_odd([H|T],[H|Z]) :- (H mod 2) <> 0, filtr_odd(T,Z).
filtr_odd([H|T],Z) :- (H mod 2) = 0, filtr_odd(T,Z).
 
 
filtr_even([],[]).
filtr_even([H|T],[H|Z]) :- (H mod 2) = 0, filtr_even(T,Z).
filtr_even([H|T],Z) :- (H mod 2) <> 0, filtr_even(T,Z).
 
task(X,Y) :- filtr_odd(X,Xodd), filtr_even(X,Xeven), append(XOdd,Xeven,Y).

@JleHuH213 · 24.09.2015, 15:44 **[ТС]**

что нужно написать в "goal"?

@Catstail · 26.09.2015, 18:40

Сообщение от JleHuH213

что нужно написать в "goal"

Prolog

1	task([1,2,3,4,5,6],Y).

@JleHuH213 5 / 5 / 2 Регистрация: 22.10.2012 Сообщений: 248
		1
	Списки в прологе 18.09.2015, 15:45. Показов 766. Ответов 3 Метки нет (Все метки) Перенести в конец списка [1, 2, 3, 4, 5] все четные элементы. 0

@JleHuH213 5 / 5 / 2 Регистрация: 22.10.2012 Сообщений: 248
	24.09.2015, 15:44 [ТС]	3
	что нужно написать в "goal"? 0

Опции темы