Select Code to Download

        my $xor = $mt[$i-1]^($mt[$i-1]>>30);
        { use integer;  $mt[$i] = 1812433253 * $xor + $i; $mt[$i] >>= 
+32 if $mt[$i] > 0xffffffff }

    $mt[$i] >>= 32 if $mt[$i] > 0xffffffff;

    $mt[$i] &= 0xffffffff;