[fpc-devel] Improved random number generator

[Graeme Geldenhuys]

I found this on the web....  Anybody think it viable to patch FPC?  :-)


function GetRandomNumber: Integer;
begin
  Result := 4;  // Chosen by fair dice roll. Guaranteed to be random.
end;


Original source:
  http://xkcd.com/221/



Regards,
  - Graeme -


_______________________________________________
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/