tanakaBox https://blog.hatena.ne.jp/tanakaBox/ ボクノス https://boxnos.hatenablog.com/ Scheme M系列乱数を作ってみた。 M系列乱数は、R(n) = R(n-p) xor R(n-q)の漸化式で作れる。 と言っても最初が必要なので、既存のアルゴリズムを使用して、乱数テーブルを作っておく必要がある。nを１個ずつ進めながらxorで計算していく。nの余りを取っていけば、テーブルを増やす必要はないのでヴェクタを使って破壊的に更新していく事にする。 動作が確認しやすいように、2番目に小さいメルセンヌ素数M(3)=2^3 - 1=7を使用して、擬似乱数を作ってみます。テーブル数pに対して、2^p-1という周期が出来ることを確認したいと思います。 Gaucheでxorする時はlogxorかな。処理系に… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20080423%2F1208914821" title=" M系列乱数を作ってみた。 - ボクノス" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-04-23 10:40:21 rich https://boxnos.hatenablog.com/entry/20080423/1208914821 1.0 100%