以前書いたフィボナッチ数列のCPS変換について聞かれたので、改めて解説してみようと思う。まずは普通の再帰版 ;; List.1 (define (fib n) (if (or (= n 1) (= n 2)) 1 (+ (fib (- n 1)) (fib (- n 2)))))この中で末尾再帰になっていない部分を取り出すと、 …

SParser改めToySchemeのver 0.4を公開した。 長いこと放置していたけど、この前継続の実装方法についてid:carbuncleさんと話しているうちに、例外で大域脱出する必要がないことに気が付いたので久しぶりにいじってみた。 あと少しだけテストケースを用意した…

→完成版はこちら // ==UserScript== // @name Yet Another Hatena Bookmark Tag Suggestion // @namespace http://d.hatena.ne.jp/nozom/ // @description Improve Tag Suggestion of Hatena Bookmark // @include http://b.hatena.ne.jp/add?* // @include …