VPF::Не циклический сдвиг элементов списка

Стил

Дата 18.10.2010, 13:01 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем привет!
Не могу ничего найти про не циклический сдвиг...
Подскажите,пожалуйста, как мне осуществить сдвиг элемента списка на одну позицию влево (+вправо) и на N позиций влево(+вправо).
Вот, что я смог написать:

domains
sp=integer*
N=integer
E=integer

predicates
sdvig(sp,integer,sp).
sdvig_levo(sp,sp).
sdvig_pravo(sp,sp).
sdvig(sp,N,sp).
sdvig_levo(sp,sp).
sdvig_pravo(sp,sp).

clauses
sdvig(E,[H/T]):-sdvig_levo([1,2,3],1,sp).
sdvig([H/T],E):-sdvig_pravo(1,sp,[1,2,3]).
sdvig(E,[H/T]):-sdvig_levo([1,2,3],N,sp).
sdvig([H/T],E):-sdvig_pravo(1,N,[1,2,3]).
goal
sdvig(E,[1,2,3]).
sdvig([1,2,3],E).

Помогите,пожалуйста, разобраться с этой программой!!!!

Грымзик

Дата 18.10.2010, 22:15 (ссылка)

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

Загрузка ...

Шустрый

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

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

Как-то у Вас там совсем все запутано smile

Код

domains
ilist=integer*

predicates
levo(integer,ilist,ilist).
pravo(integer,ilist,ilist).
del_last(ilist,ilist).
add_last(ilist,ilist).
a(ilist,integer,ilist).
b(ilist,integer,ilist).

clauses
del_last([_],[]):-!.
del_last([H|Tail],[H|NewTail]):-del_last(Tail,NewTail).

add_last([],[0]).
add_last([H|Tail],[H|NewTail]):-add_last(Tail,NewTail).

levo(0,L,L):-!.
levo(N,[_|T],L):-N1=N-1,add_last(T,T1),levo(N1,T1,L).

pravo(0,L,L):-!.
pravo(N,T,L):-del_last(T,T1),N1=N-1,pravo(N1,[0|T1],L).

a(A,N,B):-levo(1,A,A1),pravo(N,A1,B).

b(A,N,B):-pravo(1,A,A1),levo(N,A1,B).

goal
a([1,2,3,4,5],3,A),
b([1,2,3,4,5],3,B).

Стил

Дата 19.10.2010, 21:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Грымзик, спасибо огромное!
Выручили!!!

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