こういう変わった感じの関数定義ってどこで勉強してるんですか？
>>391
(define ((compose f g) x) (f (g x)))
>>570
(define (zip list1 . more-lists) (apply map list list1 more-lists))
>>570のはこう書き換えられるのに気がつきました。
(define (zip . list1) (apply map list list1))
http://codepad.org/jAFgSvuC