higepon https://blog.hatena.ne.jp/higepon/ higepon blog https://higepon.hatenablog.com/ mosh lisp IRCで話していたらやる気が出たので Tiny CLOS を動かしてみました。 (define (fib x) (if (= x 0) 1 (* x (fib (- x 1))))) (define-generic gfib) (add-method gfib (make-method (list) (lambda (call-next-method x) (if (= x 0) 1 (* x (gfib (- x 1))))))) (time (bench fib)) (time (bench gfib)) ;=>(bench fib) 44 ;=>(bench gfib) 57250 ぎゃ… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhigepon.hatenablog.com%2Fentry%2F20081111%2F1226411514" title=" Tiny CLOS on Mosh - higepon blog" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-11-11 22:51:54 rich https://higepon.hatenablog.com/entry/20081111/1226411514 1.0 100%