XorShift On Dlang, D

Language: Layout:

//XorShift Module
module XorShift;

import std.datetime;
import std.concurrency;

static public class XorShift{
private:
    Generator!uint r;

public:
    static immutable uint[string] defaults;
    static this(){
        defaults=[
            "x":123456789,
            "y":362436069,
            "z":521288629,
            "w":88675123
        ];
    }
    immutable uint[string] seeds;
    uint randCount=0;

this(
        uint w=cast(uint)Clock.currStdTime(),
        uint x=0x7FFFFFF7,uint y=0x7FFFFFF7,uint z=0x7FFFFFF7
    ){
        if(x==0x7FFFFFF7) x=w<<13;
        if(y==0x7FFFFFF7) y=(w>>9)^(x<<6);
        if(z==0x7FFFFFF7) z=y>>7;
        seeds=["x":x,"y":y,"z":z,"w":w];
        r=randGen(w,x,y,z);
    }

Generator!uint function(uint,uint,uint,uint) randGen=(w,x,y,z)=>new Generator!uint((){
        yield(w);
        uint t;
        for(;;){
            t=x^(x<<11);
            x=y;
            y=z;
            z=w;
            yield(w=(w^(w>>19))^(t^(t>>8)));
        }
    });

uint rand(){
        randCount++;
        r.popFront();
        return r.front;
    }

int randInt(int min=0,int max=0x7FFFFFFF){
        return rand()%(max-min+1)+min;
    }

float randFloat(float min=0,float max=1){
        return cast(float)(rand()%0xFFFF)/0xFFFF*(max-min)+min;
    }

template shuffle(T){
        T[] shuffle(T[] _arr){
            auto arr=new T[_arr.length];
            arr[]=_arr;
            for(int i=0;i<=arr.length-2;i++){
                int r=randInt(i,cast(int)arr.length-1);
                T tmp=arr[i];
                arr[i]=arr[r];
                arr[r]=tmp;
            }
            return arr;
        }
    }

static class defaultSeed:XorShift{
    public:
        this(){
            super(
                XorShift.defaults["w"],
                XorShift.defaults["x"],
                XorShift.defaults["y"],
                XorShift.defaults["z"]
            );
        }
    }
}
//XorShift End

import std.stdio;
//import XorShift:XorShift;

void main(){
    //XorShift乱数ジェネレータの初期化
    // 論文デフォルトシード
    auto r_def=new XorShift.defaultSeed();
    // 固定値シード
    auto r_const=new XorShift(100);
    // 時間シード
    auto r=new XorShift();

//デフォルトシード値の取得
    writeln(">> defaults");
    writeln(XorShift.defaults);

//適用したシード値の取得
    writeln(">> seeds in r");
    writeln(r.seeds);

//乱数の生データを取得
    writeln(">> rand 0 to UInt32Max");
    for(int i=0;i<5;i++){
        writeln(r_def.rand());
    }

//0-100の乱数(100含む)を整数で取得
    writeln(">> randInt 0 to 100");
    for(int i=0;i<5;i++){
        writeln(r_const.randInt(0,100));
    }

//0-1の乱数を浮遊小数点で取得
    writeln(">> randFloat 0 to 1");
    for(int i=0;i<5;i++){
        writeln(r.randFloat());
    }

//配列のシャッフル
    //値渡しとなるので元の配列は破壊されない
    writeln(">> shuffle array");
    auto a=new int[20];
    foreach(i;0..cast(int)a.length-1) a[i]=i;
    writeln(r.shuffle(a));
    writeln(a);

//今の乱数を回した回数
    writeln(">> randCount in r");
    writeln(r.randCount);
}

Show compiler warnings [ + ] Compiler args [ + ] Show input
Compilation time: 1.12 sec, absolute running time: 0.14 sec, cpu time: 0 sec, memory peak: 3 Mb, absolute service time: 1,27 sec