- 128 名前：デフォルトの名無しさん [2007/06/26(火) 06:36:43 ]
- reverseと同じ作用をする関数をreverseを使わずに作りたいのですが
(defun my-reverse (l)
(cond ((atom l) l)
(t (cons '()(list (my-reverse (cdr l)) (car l))))))
とやると
> (my-reverse '(a b (c d)))
(NIL (NIL (NIL NIL (C D)) B) A)
となってしまいます。
どうすればよいのでしょうか？
ちなみにLISPは本当に素人です…
