fold （複数リスト引数）

• vallog: cars+cdrs

scheme を始めた当初から「どうなってんだろう？」と気になっていた複数のリストを引数に取れる fold や map 。
cars+cdrs 同様、カンニングしながら書いてみた。

• http://www.google.co.jp/codesearch/p?hl=ja#xAlgQDHmdnQ/pub/gentoo/distfiles/chicken-2.2.tar.gz%7CWcz_PeVdEwc/chicken-2.2/srfi-1.scm&q=lang:scheme%20%22(define%20(fold%22

これはなるほど過ぎる。。
receive が一つ余計かな、というか二つ目の receive のところダメかも？

追記

修正版。複数のリストを渡した時に、リストの要素数が違うとエラーになっていた部分を修正。最も要素数の少ないリストが終わるまで処理を行ないます。