FizzBuzz解いてみた。
もちろんマニュアルとつきっきり。
何気に楽しかった。
fをdefineしているあたり負け犬。
(use srfi-1)
(define (f a b) (if (string=? "" a) b a))
(for-each
(lambda (i)
(print (f
(string-append
(if (= (remainder i 3) 0) "Fizz" "")
(if (= (remainder i 5) 0) "Buzz" ""))
i)))
(iota 100 1))なんか、string-appendしているあたりはリストを作っていって空っぽだったらiと置換するみたいな処理ができそうなんだけどいまいち不明。
