結城浩のSICP日記 RSSフィード

2006-05-03

[]擬似乱数生成器 擬似乱数生成器 - 結城浩のSICP日記 を含むブックマーク

Gaucheではメルセンヌ・ツイスターが使えます。

(use math.mt-random)
;=> #<undef>

(define mt (make <mersenne-twister> :seed (sys-time)))
;=> mt

(mt-random-integer mt 1000)
;=> 762

(mt-random-integer mt 1000)
;=> 840

(mt-random-integer mt 1000)
;=> 209

(mt-random-integer mt 1000)
;=> 444

(mt-random-integer mt 1000)
;=> 669

追記:shiroさんから、疑似乱数ならということでSRFI-27: Sources of Random Bitsをご紹介していただきました。感謝です。

shiroshiro2006/05/03 03:51今なら、srfi-27 をおすすめします。他の処理系でも使えますし。
http://practical-scheme.net/wiliki/schemexref.cgi?SRFI-27