Вырезать из списка подсписок от позиции А до позиции Б

@Kenworth · Регистрация: 21.10.2013

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

Здравствуйте. Помогите пожалуйста с решением.
Задача следующая: Дан список. Вырезать из списка подсписок от позиции А до позиции Б. Список неопределен.
Заранее спасибо.

@arlat · 17.11.2013, 15:37

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

Задача следующая: Дан список. Вырезать из списка подсписок от позиции А до позиции Б. Список неопределен.

Prolog

cut_sub(List, Pos1, Pos2, SubList) :-
    cut_sub(List, Pos1, Pos2, SubList, 1).
cut_sub([Head|Teil], Pos1, Pos2, [Head|Rest], Pos0) :-
    Pos0 >= Pos1,
    Pos0 =< Pos2,
    Pos3 is Pos0 + 1,
    !,
    cut_sub(Teil, Pos1, Pos2, Rest, Pos3).
cut_sub([_|Teil], Pos1, Pos2, Rest, Pos0) :-
    Pos0 =< Pos2,
    Pos3 is Pos0 + 1,
    !,
    cut_sub(Teil, Pos1, Pos2, Rest, Pos3).
cut_sub(_, _, _, [], _).

@Kenworth · 17.11.2013, 16:00 **[ТС]**

Благодарю за помощь.
а можешь подсказать как запустить его, чтоб из списка [1,2,3,4,5,6,7,8,9] остался список [1,6,7,8,9]?

JIP:-cut_sub([1,2,3,4,5,6,7,8,9], 0, 5, [], 9).
Yes

@arlat · 19.11.2013, 10:52

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

как запустить его, чтоб из списка [1,2,3,4,5,6,7,8,9] остался список [1,6,7,8,9]?

?- cut_sub([1,2,3,4,5,6,7,8,9], 6, 9, L).
L = [6, 7, 8, 9].
А почему [1,6,7,8,9], опечатка? Хотя можно и этот

?- L = [1,2,3,4,5,6,7,8,9], cut_sub(L, 1, 1, L1), cut_sub(L, 6, 9, L2), append(L1, L2, L3).
L = [1, 2, 3, 4, 5, 6, 7, 8, 9],
L1 = [1],
L2 = [6, 7, 8, 9],
L3 = [1, 6, 7, 8, 9].

@Kenworth 105 / 104 / 59 Регистрация: 21.10.2013 Сообщений: 346
		1
	Вырезать из списка подсписок от позиции А до позиции Б 17.11.2013, 13:31. Показов 938. Ответов 3 Метки нет (Все метки) Здравствуйте. Помогите пожалуйста с решением. Задача следующая: Дан список. Вырезать из списка подсписок от позиции А до позиции Б. Список неопределен. Заранее спасибо. 0

@Kenworth 105 / 104 / 59 Регистрация: 21.10.2013 Сообщений: 346
	17.11.2013, 16:00 [ТС]	3
	Благодарю за помощь. а можешь подсказать как запустить его, чтоб из списка [1,2,3,4,5,6,7,8,9] остался список [1,6,7,8,9]? JIP:-cut_sub([1,2,3,4,5,6,7,8,9], 0, 5, [], 9). Yes 0

@arlat 793 / 597 / 156 Регистрация: 07.10.2013 Сообщений: 1,325
	19.11.2013, 10:52	4
	Сообщение от Kenworth как запустить его, чтоб из списка [1,2,3,4,5,6,7,8,9] остался список [1,6,7,8,9]? ?- cut_sub([1,2,3,4,5,6,7,8,9], 6, 9, L). L = [6, 7, 8, 9]. А почему [1,6,7,8,9], опечатка? Хотя можно и этот ?- L = [1,2,3,4,5,6,7,8,9], cut_sub(L, 1, 1, L1), cut_sub(L, 6, 9, L2), append(L1, L2, L3). L = [1, 2, 3, 4, 5, 6, 7, 8, 9], L1 = [1], L2 = [6, 7, 8, 9], L3 = [1, 6, 7, 8, 9]. 1

Опции темы