(setq h 3) (defun make-new-list (&optional (list) (num) (n 0) (t-list nil)) (cond ((not (cdr list)) (if (= num n) (append t-list (list (car list))) t-list)) ((= num n) (make-new-list (cdr list) (+ num h) (1+ n) (append t-list (list (car li…

祖母に感謝。ゲーデル、エッシャー、バッハ―あるいは不思議の環 20周年記念版posted with amazlet on 07.03.23ダグラス・R. ホフスタッター Douglas R. Hofstadter 野崎 昭弘 柳瀬 尚紀 はやし はじめ 白揚社 (2005/10)売り上げランキング: 13234おすすめ度…