(defun my-reverse (items)
(cond ((null items) items)
((consp (car items) ) (append (my-reverse (cdr items)) (list (my-reverse (car items))) ))
(t (append (my-reverse (cdr items)) (list (car items)))))
)
(my-reverse (list 0 1 (list 2 3 4) (list 5 6)))
阅读(1088) | 评论(0) | 转发(0) |
