（続) FizzBuzz をgaucheで解く

大層なタイトルのわりには
大したことないんだが昨日の関数定義をlambdaにしただけ。
defineがなくなって大域変数がなくなったのだが局所変数（仮引数？）使いまくっているあたりが素人。

(use srfi-1)
(for-each
 (lambda (i)
   (print
    ((lambda (a b) (if (string=?"" a) b a))
     (string-append
      (if (= (remainder i 3) 0) "Fizz" "")
      (if (= (remainder i 5) 0) "Buzz" ""))
     i)))
(iota 100 1))