spl

systems programming language
git clone http://frotz.net/git/spl.git
Log | Files | Refs | README | LICENSE

1024-xorshift32.spl (307B)

      1 
      2 // todo: u32 and LSR support
      3 
      4 var state i32 = 0xd3f56332;
      5 
      6 fn xorshift32() i32 {
      7 	state = state ^ (state << 13);
      8 	state = state ^ ((state >> 17) & 0x7FFF);
      9 	state = state ^ (state << 5);
     10 	return state;
     11 }
     12 
     13 fn start() i32 {
     14 	var n i32 = 0;
     15 	while (n < 64) {
     16 		_hexout_(xorshift32());
     17 		n++;
     18 	}
     19 	return 64;
     20 }