{"version":"1.0","height":"190","blog_title":"higepon blog","html":"<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>","description":"IRC\u3067\u8a71\u3057\u3066\u3044\u305f\u3089\u3084\u308b\u6c17\u304c\u51fa\u305f\u306e\u3067 Tiny CLOS \u3092\u52d5\u304b\u3057\u3066\u307f\u307e\u3057\u305f\u3002 (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 \u304e\u3083\u2026","author_url":"https://blog.hatena.ne.jp/higepon/","published":"2008-11-11 22:51:54","categories":["mosh","lisp"],"image_url":null,"title":" Tiny CLOS on Mosh","provider_name":"Hatena Blog","type":"rich","blog_url":"https://higepon.hatenablog.com/","author_name":"higepon","provider_url":"https://hatena.blog","url":"https://higepon.hatenablog.com/entry/20081111/1226411514","width":"100%"}