Разбить исходный список на два (в один - положительные элементы, в другой - отрицательные)

@vip58 · Регистрация: 17.09.2013

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

разбить исходный список на два (в один - положительные элементы, в другой отрицательные)

@Catstail · 02.07.2014, 11:57

Prolog

domains
int=integer
intl=int*
 
predicates
split(intl, intl,intl)
 
clauses
split([],[],[]).
split([H|T],[H|Q],Z) :- H>=0, split(T,Q,Z).
split([H|T],Q,[H|Z]) :- H<0, split(T,Q,Z).
 
goal
split([1,3,-5,6,-5,1,-3,-1],N,Z), write(N),nl,write(Z),nl.

@vip58 1 / 1 / 0 Регистрация: 17.09.2013 Сообщений: 22
		1
	Разбить исходный список на два (в один - положительные элементы, в другой - отрицательные) 14.01.2014, 03:47. Показов 3376. Ответов 1 Метки нет (Все метки) разбить исходный список на два (в один - положительные элементы, в другой отрицательные) 0

	02.07.2014, 11:57