>>467 動きました。labelsや縦棒で区切るとか勉強になります。 括弧が一つ多いみたいなんで (car (chikan '((A B C) A B C (A (B C))) )) とすれば大丈夫ですね。 所でlabels使わなくても行けませんか？ (defun chikan(x) (if (atom x) (henkan x) (list (loop for y in x append (chikan y)))))
>>470 ヒントありがとうございます。 (defun chikan(x) (if (atom x) (henkan x) (list (apply #'concatenate 'list (mapcar #'chikan x ))))) (car (chikan '((A B C) A B C (A (B C))) ))
