妙なマクロができた。 (defmacro def-instance-interp (func-name value-pair values &body body) (if (not (listp values)) (setf values (eval values))) `(defun ,func-name (,value-pair) (let (,@(mapcar (lambda (x) (if (listp x) x `(,x (find-value…

今日記事を書くと昨日のブログが見れるのだろうか？だめだったので該当の日を削除。ださいぞ Hatena。

3016028607486216816412615723135655359402744334801831027226880476662858668923108844261004981139792742133847781587038964568550824358875388606032741472827044820329394758238246923457181366 (let ((n '(1))) (defun rabbit () (let (temp oldn) (dol…

google に表示されたチューリングマシン。 if ( 入力文字が == 1 ) { 1 を消す 右の空きを探す 10 を追加 左の空きを探す 1 を入れる } else { 0 を消す 右の空きを探す 1 を追加 左の空きを探す 0 を入れる } 読んだ数を覚えておく。 読んだ箇所を消す 1 な…

ルートから下に向かうにしたがって member 変数は増える。 継承するクラスが増えるにしたがってルートのメソッドを増やさなければならない。（ルートのメソッドは意味的には全能ですべてのありとあらえるメソッドをもっているのだ）