(define-macro (receive . args) `(call-with-values (lambda () ,(cadr args)) (lambda ,(car args) ,@(cddr args)))) こんな感じで良いかしら。

たつをさんのところで紹介されていた「ランディ・パウシュ教授の最終講義」を見ました。 これだけ多くの人が見た方が良いというのだから何から得るものがあるはずだろうと。 ちなみに見た人は分かると思いますが↓のひとはランディ教授ではありません。http:/…

配列に入っている数の和を求めようとして fold 的なものを探していたら inject を見つけた。 そういえば以前 id:secondlife が inject がどうのこうのと言っていた気がしたがその時は気づかなかったλ...。 http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/rub…

鬼車を利用して正規表現サポートをさくっと実装。 ((#/abc/ "123abcdef") 'after) => "def" ちなみに正規表現は R6RS の範囲外です。 ついでに多値を実装。 (call-with-values (lambda () (values 1 2 3)) (lambda (a b c) (+ a b c))) => 6 多値は後回しに…

http://tmp.garyr.net/dev-builds/