[LISP]Задача

Так а в чем затык то? Что именно ты не знаешь для решения задач?

>Задача 3.

>Задача 4.

Задачи 1 и 2 огласите, пожалуйста.

Это откуда?

из экзаменационных билетов, если верить гуглу. А может кто-то подскажет ту же задачу про перестановки, но на erlang? <_<

Вот все задания

http://www.machinelearning.ru/wiki/images/e/ea/Exam_tasks_fp_mdv.pdf

АААААААААААААААААААААА!!!1 Это задания НовГУ. Ух, Михайлов страшный человек.

Он не страшный, а странный.

Страшный - Груздев.

Груздева у нас не было. Ты какой-нибудь 3й курс ПОВТа?

Пока еще второй.

Я не понял, как пример к задаче 3 соотносится с её условием.
Кроме того, нигде не сказано, какой диалект Лиспа нужен (Common Lisp, Scheme?).

Вот функция, вычисляющая все циклические перестановки списка на Common Lisp. 

CL-USER> (defun for-all-cyclic-permutations (list func)
           (funcall func list)
           (do ((iter (cdr list) (cdr iter))
                (prev list))
               ((not iter))
             (when prev
               (setf (cdr prev) nil)
               (funcall func (append iter list))
               (setf (cdr prev) iter))
             (setf prev iter)))
           
CL-USER> (for-all-cyclic-permutations '(a b c d e) #'print)

(A B C D E) 
(B C D E A) 
(C D E A B) 
(D E A B C) 
(E A B C D) 

CL-USER> (for-all-cyclic-permutations '((a b) (c d)) #'print)

((A B) (C D)) 
((C D) (A B)) 


Вот функция, вычисляющая все комбинации циклических перестановок на Common Lisp: 

CL-USER> (defun for-all-cyclic-permutations-2 (list func)
           (if list
               (for-all-cyclic-permutations-2
                (cdr list)
                (lambda (tail)
                  (for-all-cyclic-permutations
                   (car list)
                   (lambda (head)
                     (funcall func (cons head tail))))))
               (funcall func nil)))

CL-USER> (for-all-cyclic-permutations-2 '((a b) (c d)) #'print)

((A B) (C D)) 
((B A) (C D)) 
((A B) (D C)) 
((B A) (D C))