Программу которая должна выполнять циклический сдвиг

@prog159 · Регистрация: 10.03.2014

Написать программу которая должна выполнять циклический сдвиг ~~в права~~ вправо на заданное с клавиатуры число. Пример [1,2,3,4,5], сдвиг на два [4,5,1,2,3].

@arlat · 14.05.2016, 10:13

поиск по слову 'сдвиг' в разделе Prolog

@prog159 · 14.05.2016, 15:40 **[ТС]**

arlat, нужна именно такая программа

@Catstail · 14.05.2016, 20:11

Prolog

domains
int=integer
intl=int*
 
predicates
app(intl,intl,intl)
len(intl,int)
head(intl,int,intl)
cut(intl,int,intl)
rot(intl,int,intl)
 
clauses
app([],X,X).
app([H|T],X, [H|R]) :- app(T,X,R).
 
len([],0).
len([_|T],N) :- len(T,N1), N=N1+1.
 
head(_,0,[]).
head([H|T],N,[H|R]) :- N1=N-1, head(T,N1,R).
 
cut(X,0,X).
cut([_|T],N,R) :- N1=N-1, cut(T,N1,R).
 
rot(X,N,Y) :- len(X,L), NN=N mod L, L1=L-NN, head(X,L1,X1), cut(X,L1,X2), app(X2,X1,Y).

@prog159 · 16.05.2016, 14:10 **[ТС]**

Catstail, спасибо

@prog159 0 / 0 / 0 Регистрация: 10.03.2014 Сообщений: 74
		1
	Программу которая должна выполнять циклический сдвиг 14.05.2016, 10:07. Показов 459. Ответов 4 Метки нет (Все метки) Написать программу которая должна выполнять циклический сдвиг ~~в права~~ вправо на заданное с клавиатуры число. Пример [1,2,3,4,5], сдвиг на два [4,5,1,2,3]. 0

@arlat 785 / 589 / 156 Регистрация: 07.10.2013 Сообщений: 1,313
	14.05.2016, 10:13	2
	поиск по слову 'сдвиг' в разделе Prolog 0

@prog159 0 / 0 / 0 Регистрация: 10.03.2014 Сообщений: 74
	14.05.2016, 15:40 [ТС]	3
	arlat, нужна именно такая программа 0

@prog159 0 / 0 / 0 Регистрация: 10.03.2014 Сообщений: 74
	16.05.2016, 14:10 [ТС]	5
	Catstail, спасибо 0

Опции темы