結城浩のSICP日記 RSSフィード

2006-06-07

足し算を定義する 足し算を定義する - 結城浩のSICP日記 を含むブックマーク

きしださんのところで、+の再定義の話題が出ていたのでやってみました。

(define + *)
;=> +

(+ 3 5)
;=> 15

(define (+ a b) (log (* (exp a) (exp b))))
;=> +

(+ 3 5)
;=> 8.0

整数じゃなくなるのが痛い。

nowokaynowokay2006/06/07 18:36掛け算じゃ無理と思ってたんですが、そうか、指数関数使えばいいんですね。
目からウロコでした。

トラックバック - http://sicp.g.hatena.ne.jp/hyuki/20060607