練習問題/解答例/数当てゲーム/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...
((< answer n) (display "大きいです。") (newline...
(game))))
終了行:
;;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...
((< answer n) (display "大きいです。") (newline...
(game))))
ページ名:
