повторяющиеся элементы

23.12.2012, 02:17. **Показов** 3489. **Ответов** 4

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

Доброго времени всем.
Помоги пожалуйста.
выяснить, есть ли в списке повторяющиеся элементы. нужно написать программу в visual prologe
заранее спасибо.

@~~rrrFer~~ · 23.12.2012, 18:18

Prolog

1
2
3

p([]):-!, fail.
p([H|T]):-
  member(H, T), !;p(T).

вроде бы так выглядит поиск с квадратичной сложностью, но можно за O(log(n)*log(n)) решить.
Предикат Member получишь поиском по форуму

30.03.2013, 00:03

Нужно написать предикат, который является истинным если в списке нет повторяющихся элементов.

03.11.2013, 19:31

Предикат истинен если: в списке L нет равных элементов.
Пример: various([a,s,d,v]). – истинна, various([a,s,a,v])– ложна.
Цель – various([a,s,d,v]).

Помогите, пожалуйста.

@keidin · 03.11.2013, 21:25

Решение Вашей задачи заключается в отслеживании повторов...

Prolog

domains
list=symbol*
predicates
nondeterm member(symbol,list)
nondeterm various(list)
 
clauses
member(H,[H|_]).
member(H,[_|T]):-member(H,T).
various([H|T]):-not(member(H,T)),various(T).
various([]).
 
goal
various([a,s,d,v]).

nikka
		1
	повторяющиеся элементы 23.12.2012, 02:17. Показов 3489. Ответов 4 Метки нет (Все метки) Доброго времени всем. Помоги пожалуйста. выяснить, есть ли в списке повторяющиеся элементы. нужно написать программу в visual prologe заранее спасибо.

Vaginshtain
	30.03.2013, 00:03	3
	Нужно написать предикат, который является истинным если в списке нет повторяющихся элементов.

moommo
	03.11.2013, 19:31	4
	Предикат истинен если: в списке L нет равных элементов. Пример: various([a,s,d,v]). – истинна, various([a,s,a,v])– ложна. Цель – various([a,s,d,v]). Помогите, пожалуйста.

	03.11.2013, 21:25