fizzbuzz 現実トウヒ

以下なナニが書けるあたり、やはり Gauche というか Scheme はアレ。

#!/usr/bin/env gosh

(define (fizzbuzz . args)
  (let-optionals* 
   args ((limit 100)
	 (fizz 3)
	 (buzz 5))
   (define inner-fizzbuzz 
     (lambda (x limit fizz buzz)
       (if (> x limit)
	   '()
	   (cons (cond ((= (remainder x (* fizz buzz)) 0)
			'fizzbuzz)
		       ((= (remainder x fizz) 0)
			'fizz)
		       ((= (remainder x buzz) 0)
			'buzz)
		       (else
			x))
		 (inner-fizzbuzz (+ x 1) limit fizz buzz)))))
   (inner-fizzbuzz 1 limit fizz buzz)))

コマンドラインから云々をスルーしているあたりはご容赦頂きたいのですが例えば以下なソレの動作確認はできてたり (以下、整形済みです)。

gosh> 
(fizzbuzz 15 3 5)
(1 2 fizz 4 buzz fizz 7 8 fizz buzz 11 fizz 13 14 fizzbuzz)
gosh> (fizzbuzz 20 3 4)
(1 2 fizz buzz 5 fizz 7 buzz fizz 10 11 fizzbuzz 13 14 fizz buzz 
17 fizz 19 buzz)
gosh> (fizzbuzz)
(1 2 fizz 4 buzz fizz 7 8 fizz buzz 11 fizz 13 14 fizzbuzz 16 17 
fizz 19 buzz fizz 22 23 fizz buzz 26 fizz 28 29 fizzbuzz 31 32 
fizz 34 buzz fizz 37 38 fizz buzz 41 fizz 43 44 fizzbuzz 46 47 
fizz 49 buzz fizz 52 53 fizz buzz 56 fizz 58 59 fizzbuzz 61 62 
fizz 64 buzz fizz 67 68 fizz buzz 71 fizz 73 74 fizzbuzz 76 77 
fizz 79 buzz fizz 82 83 fizz buzz 86 fizz 88 89 fizzbuzz 91 92
fizz 94 buzz fizz 97 98 fizz buzz)
gosh> (fizzbuzz 15)
(1 2 fizz 4 buzz fizz 7 8 fizz buzz 11 fizz 13 14 fizzbuzz)

コマンドライン引数の処理って本当にアレですね。(何
とりあえず、算数のソレを (ry