Дано задание:
Определить функцию, выполняющую следующие действия: список, в котором каждый элемент является подсписком уровня, соответствующего его месту.
>(name ‘(a w q e))
(a (w) ((q)) (((e))))
Я сделал это двумя способами. Декларативно:

(defun name (list)

(cond

((null list) nil)

(t (func list 0))

))

 

(defun func (list n)

(cond

((null (cdr list)) (ring list n))

(t (cons (ring (car list) n) (func (cdr list) (+ n 1)) ))

))

 

(defun ring (list n)

(cond

((< n 1) list)

(t (ring (cons list nil) (- n 1)))

))

 

и императивно:

(defun namec (list)

(progn

(setq m 0)

(do (( tmp (cons (car list) nil) ))

((null (car list))  tmp)

(progn

(setq list (cdr list))

(cond 

((null (null (car list))) (setq tmp (append tmp (rinc (car list) (setq m (+ m 1)) ))))

)))

))

 

(defun rinc (list n)

(cond

((< n 1) (cons list nil))

(t (rinc (cons list nil) (- n 1)))

))

 

Но теперь мне необходимо реализовать то же самое, но уже с использованием функций высокого порядка. А я с трудом представляю, что это такое. Помогите, пожалуйста!

Спасибо большое! А нельзя это как-то прокомментировать?