2008-07-18から1日間の記事一覧

(sicp48)m4.3~m4.7

今日やった分。 4.3 データ主導の形に変更。gets/putsはてきとうに(putsはわざわざ作らなくてもいいかも) #| ;;getの中身を作るためのelisp (defun make-func-mem (beg end) (interactive "r") (let ((mem '())) (save-excursion (goto-char end) (while (a…

(sicp47)m4.1~4.2

いつやったかは忘れた。(upし忘れてた) ;;eval/applyは元の関数を覆い隠さない様に@をつけよう (define (@eval exp env) (cond ((self-evaluating? exp) exp) ((variable? exp) (lookup-variable-value exp env)) ((quoted? exp) (text-of-quotation exp)) …