Определить функцию, которая которая производит круговую перестановку элементов в списке-аргументе вправо

@Kill100 · Регистрация: 11.12.2010

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

Определить функцию, которая которая производит круговую перестановку элементов в списке-аргументе вправо
Причем есть ограничения на функции которые можно юзать. Это только
defun; cons; ca..ar; cd..dr; '; atom; COND ;
И вот не могу нечего придумать как это сделать...

@Catstail · 23.10.2013, 17:38

Lisp

;; вспомогательная функция, объединяющая два списка
 
(defun app! (lst1 lst2)
  (cond ((null lst1) lst2)
        (t (cons (car lst1) (app! (cdr lst1) lst2)))))
 
==> app!
 
;; Проверка
 
(app! '(1 2 3) '(a b c))
 
==> (1 2 3 a b c)
 
;; Решение задачи
 
(defun rotate-r (lst)
  (app! (cdr lst) (cons (car lst) nil)))
 
==> rotate-r
 
;; Проверка
 
(rotate-r '(1 2 3 4 5 6))
 
==> (2 3 4 5 6 1)

@Kill100 434 / 299 / 82 Регистрация: 11.12.2010 Сообщений: 1,209
		1
	Определить функцию, которая которая производит круговую перестановку элементов в списке-аргументе вправо 23.10.2013, 15:21. Показов 1044. Ответов 1 Метки нет (Все метки) Определить функцию, которая которая производит круговую перестановку элементов в списке-аргументе вправо Причем есть ограничения на функции которые можно юзать. Это только defun; cons; ca..ar; cd..dr; '; atom; COND ; И вот не могу нечего придумать как это сделать... 0

	23.10.2013, 17:38