【入門】CommonLisp【質問よろず】

【入門】CommonLisp【質問よろず】 at TECH

771:デフォルトの名無しさん
05/11/13 01:58:53
>>770
こんなんでどうだ。
(defun expand (x)
　(cond ((symbolp x) (expand (symbol-value x)))
　　　　　((numberp x) x)
　　　　　((listp x) (cons (car x) (mapcar #'expand (cdr x))))
　　　　　(t (error "unknown type: " x))))

(defun myfunc (x) (eval (expand x)))

次ページ

続きを表示

1を表示