;;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))))

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2023-02-23 (木) 23:33:35