uDiary

◆ [Scheme] Scheme で 99 bottles (笑)

さて、昨日唐突にはじまった scheme ライフですが、 SICP はぼちぼち読むとして、なんか書いてみましょう。 というわけで 99 bottles (なんでやねん）。

(define (bottle n)
  (string-append (number->string n) " bottle" (if (> n 1) "s" "")))

(define (print-loop i)
  (display (string-join (list
			 (bottle i) "of beer on the wall,"
			 (bottle i) "of beer.\n")))
  (if (> i 1) (begin
		(display (string-join (list
				       "Take one down and pass it around,"
				       (bottle (- i 1)) "of beer on the wall.\n\n")))
		(print-loop (- i 1)))
      (display (string-join (list
			     "Go to the store and buy some more,"
			     (bottle 99) "of beer on the wall.\n")))))

(print-loop 99)

ぜんぜんゴルフしてません。でも、けっこう楽しい。 あ、強調しておこう。scheme けっこう楽しいぞ！

いちおう なんでも再帰しようとしてます。

書いていて思ったこと：

• string-join に渡すのはリストじゃないといけないのだが、'((bottle i) "of beer on the wall") だと (bottle i) まで未評価のまま渡されてしまう。ので、なんとなく (list ... )にしてみた。動いた。
• (begin ... ) で囲まなければならない場合と、そうでない場合の違いをいまいちわかっていない。

いまいちわかっていないことリストになっちゃいました。

◆ 同一人物だと思ったらしい。

僕の脳内では、比較対象ですらなかった（スコープが違うらしい）ので、 綾瀬はるかとやっくんが似ているなどとは、いわれるまで思いませんでしたが。

わたしの妻は、初めてやっくんを CM でみたときに、 ポカリスウェットの CM の子がこんな格好までさせられて、職業とはいえ大変だなぁと思ったらしい。

本当に同一人物だったら、素敵だったのですが。

◆ [Web][Scheme] Scheme コーディングスタイル

Wilikiより、 Scheme コーディングスタイル。