うーん、自分で書いておいて何をしているのかさっぱりわからん。schemeのzipはなにげにつかいづらい。 gosh> (map (lambda (x) (let ((y (fold string-append "" (map (lambda (z) (if (= (modulo x (car z)) 0) (cadr z) "")) '((5 "Buzz") (3 "Fizz"))))))…

rubyのinjectとの違いを発見した。というかだからfoldがおぼえられないとわかった。rubyだと irb(main):002:0> ["a","b","c"].inject("s"){|r,i| r+i} => "sabc"schemeだと gosh> (fold string-append "s" '("a" "b" "c")) "cbas" gosh> (fold-right string-…