【囲碁?】囲連星のAIを作ってみよう【連珠?】
■ このスレッドは過去ログ倉庫に格納されています
0529XORSHIFTの派生 精度・速度が違う
2008/03/30(日) 19:04:22ID:TX8QqB2kunsigned long xor32(){
static unsigned long y=2463534242;
y?=(y<<13);y=(y>>17);return (y?=(y<<5));}
unsigned long long xor64(){
static unsigned long long x=88172645463325252LL;
x?=(x<<13);x?=(x>>7);return(x?=(x<<17));}
unsigned long xor96(){
static unsigned long x=123456789,y=362436069,z=521288629;unsigned long t;
t=(x?(x<<20))?(y?(y>>11))?(z?(z<<27))?(w?(w>>6));x=y;y=z;z=w;return(w=t);}
unsigned long xor128(){
static unsigned long x=123456789,y=362436069,z=521288629,w=88675123;unsigned long t;
t=(x?(x<<11));x=y;y=z;z=w;return(w=(w?(w>>19))?(t?(t>>8)));}
unsigned long xor160(){
static unsigned long x=123456789,y=362436069,z=521288629,w=88675123,v=5783321;unsigned long t;
t=(x?(x>>7));x=y;y=z;z=w;w=v;return v=(v?(v>>6))?(t?(t>>13));}
unsigned long xor192(){
static unsigned long x=123456789,y=362436069,z=521288629,w=88675123,v=5783321,d=6615241;unsigned long t;
t=(x?(x>>2));x=y;y=z;z=w;w=v;v=(v?(v<<4))?(t?(t<<1));return(d+=362437)+v;}
こんな具合か
43 :42:2007/11/11(日) 19:16:33
コピペ丸張りで色々とおかしくなってることに気付く。
後悔はしていない。
■ このスレッドは過去ログ倉庫に格納されています