Re: 63/64 bit version of Delphi's function random( aRange : integer ) : integer; ?

Oh,oh

Spoke to soon...

StocksRandom is actually flawed/fucked up...

I just knew it was too good to be true...

Apperently I forgot to change the test code.. so it was still calling some
other routine.

I actually called it BigDicksRandom and only later changed it to
StocksRandom lol... just to show the man a little respect.

Yeah I make a habit out of calling junk stupid fucked up names so I know
it's junk.

Hehe... you are now double notarius for fucked up code man... Woeh Yeah !

BigDicksRandom or StocksRandom what's the difference.

In my mind you will always be remember as somebody who writes fucked up code
lol.

And I don't care if it's your code or not.. it's on your fucking
website/page so that makes you responseable for it !

SO FUCK YOU HAHAHAHAHAHA

But thanks anyway... for mentioning the algorithmpie and shit like that and
investigating it.

To be honest my own code is pretty fucked up as well but at least it's
better tested and working better... yup !

Your code produces negative shit sometimes... not good, noooot good at all !

One more time the fucked up Stocks Code:

function StocksRandom(Range : LongInt) : LongInt ;
var NewSeed : LongInt ;
begin
  NewSeed := RandSeed * $08088405 + 1 ;
  RandSeed := NewSeed;
  Result := Int64(NewSeed) * Int64(Range) shr 32;
end ;

Now everybody can go test it and see the junk in action... ohhh yeah
hihihihi.

Yeah yeah yeah and if you read this you might wanna check out the junk in
action yourself mister Stock Stock Stockton wieeeeeeeeeeeeeeee.

Bye,
  Skybuck ;)
Received on Mon May 1 02:05:31 2006