【入門】Common Lisp その8【質問よろず】
■ このスレッドは過去ログ倉庫に格納されています
0467デフォルトの名無しさん
2011/12/01(木) 10:01:07.58(defun chikan (x)
(labels ((hentai (x)
(if (atom x)
(case x
(a (list '|a|))
(b (list '|b|))
(c (list '|a| '|b|)))
(list (loop for y in x
append (hentai y))))))
(hentai x)))
■ このスレッドは過去ログ倉庫に格納されています