(use pre-sicp2) """ pre-sicp.scmにput-coercionなどを書いた """ (define (scheme-number->complex n) (make-complex-from-real-imag (contents n) 0)) (put-coercion 'scheme-number 'complex scheme-number->complex) (let ((t (make-scheme-number 3)))…

物語の体操という本の中にプロット*1を作成する練習の仕方が書いてあるそうです。 (実際に読んだことはないです。＞＜) タロットっぽいカードをシャッフルしてから並び替えて行うみたいです。 順番にそれぞれ意味があってその意味とカードの内容とを対応づけ…