練習問題/解答例/数当てゲーム/Scheme/複製 の履歴の現在との差分(No.1)

• 履歴一覧
• 差分 を表示
• ソース を表示
• 履歴 を表示
• 練習問題/解答例/数当てゲーム/Scheme/複製 へ行く。
  • 1 (2009-06-13 (土) 00:24:34)

• 追加された行はこの色です。
• 削除された行はこの色です。

[[練習問題/解答例/うるう年測定/Scheme]]

[[練習問題/解答例/うるう年測定/scheme]]
 ;;math.mt-random(メルセンヌツイスタを使うためのモジュール)
 (use math.mt-random)
 ;;メルセンヌツイスタを作成
 (define m (make <mersenne-twisster> :seed (sys-time)))
 (define (main args)
    (let ((answer (mt-random-integer m 50)))
      (letrec ((game (lambda ()
		       (let ((n (read)))
			 (cond ((equal? answer n) #t)
			       ((> answer n) (display "小さいです。") (newline) (game))
			       ((< answer n) (display "大きいです。") (newline) (game)))))))
	(game))))