VPF::Разделение списка на два - Форум программистов

Apelsinovaya

Дата 5.12.2007, 19:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 5.12.2007

Репутация: нет
Всего: нет

И еще один вопрос. Необходимо разделить список на два- по принципу больше-меньше относительно первого элемента. На форуме есть пример для произвольного значения, которое должен занять сам пользователь:

Код


split([],_,[],[]).
split(comp):-split(X).
split([X|L],Comp,[X|L1],L2):-
    X<Comp,
    split(L,Comp,L1,L2).
split([X|L],Comp,L1,[X|L2]):-
    X>=Comp,
    split(L,Comp,L1,L2).
?- split([6,2,2,8,3,7,4,6,5],6,L1,L2),write(L1),write(L2).

А как поступить, если сравнивать нужно именно с первым элементом?
Спасибо.

Это сообщение отредактировал(а) Apelsinovaya - 5.12.2007, 19:21

Shaggie

Дата 15.1.2008, 09:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Завсегдатай
Сообщений: 570
Регистрация: 21.12.2006
Где: outer space

Репутация: 1
Всего: 72

Ух как я наверное невовремя отвечаю smile

Ну а вдруг ещё пригодится кому? smile

Добавь в вышеприведённый вариант такие строчки:

Код


split( [], [], [] ).
split( [Head|Tail], L1, L2 ) :-
    split( [Head|Tail], Head, L1, L2 ).

Первый элемент первого списка будет разделителем.

--------------------

Цитата(alina3000 @ 6.3.2014, 10:47

)

Сорри что не по теме

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Prolog \| Следующая тема »