Напишите программу, которая определяет порядок, в котором люди выбывают из круга

@ivashcka · Регистрация: 21.03.2011

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

Помогите написать программу по прологу.
По кругу расположено N человек. Начиная с некоторой позиции, мы считаем по кругу и каждый второй человек выбывает из круга, при этом круг смыкается. Напишите программу, которая определяет порядок, в котором люди выбывают из круга, например, ВЫБ(2, [a,b,c,d,e,f,g], [b,d,f,a,e,c,g])

@Грымзик · 01.12.2011, 16:58

Prolog

выб(_,[X],[X]).
выб(S,L,[H|Tail]):-get(S,L,H,Other),выб(S,Other,Tail).
 
get(1,[H|Tail],H,Tail):-!.
get(S,[H|Tail],E,L):-S1 is S-1,get(S1,Tail,E,Tail1),append(Tail1,[H],L).

@wsxqaaz · 21.04.2014, 19:45

upd.
Помогите код выше скомпилировать
По идее должно выглядеть как то так

Prolog

DOMAINS
i = integer
g = integer*
S1 = integer
 
PREDICATES
list(i,g,g)
get(i,g,i,i)
append(g,g,g)
CLAUSES
 
list(_,[X],[X]).
list(S,L,[H|Tail]):-get(S,L,H,Other),list(S,Other,Tail).
get(1,[H|Tail],H,Tail):-!.
get(S,[H|Tail],E,L):-S1 = S-1,get(S1,Tail,E,Tail1),append(Tail1,[H],L).

Выдает ошибку на предикат append: 401 no clauses for this predicate

@ivashcka 0 / 0 / 0 Регистрация: 21.03.2011 Сообщений: 8
		1
	Напишите программу, которая определяет порядок, в котором люди выбывают из круга 01.12.2011, 09:07. Показов 1053. Ответов 2 Метки нет (Все метки) Помогите написать программу по прологу. По кругу расположено N человек. Начиная с некоторой позиции, мы считаем по кругу и каждый второй человек выбывает из круга, при этом круг смыкается. Напишите программу, которая определяет порядок, в котором люди выбывают из круга, например, ВЫБ(2, [a,b,c,d,e,f,g], [b,d,f,a,e,c,g]) 0

	21.04.2014, 19:45

Опции темы