Skybuck's Racing Random Number Generator

External Since: May 25, 2006 Posts: 295

Here ya go guys and gals.

Now that I had some time I wrote a little simple "racing" random number
generator based on my concurrency concept.

And it turns out even this simple algorithm seems to produce random numbers.

Now it's up to you "experts" to blow holes into this theory...

Can you proof that the numbers are not random ?

Can you proof any relation to each other ?

Can you write a "predictor" which always predicts the next random number to
be generated ?!

That would be impressive.

Else my theory stands ! =DDDDDD

program Project1;

{$APPTYPE CONSOLE}

// Skybuck's "pseudo random number generator" based on concurrency/race
conditions.

// 4 runs all show different numbers.

uses
SysUtils,
Classes;

var
A, B : integer;

type
Ttest1 = class(Tthread)
private

protected

procedure Execute; override;
public

end;

procedure Ttest1.Execute;
begin
while not terminated do
begin
A := A + 1;
B := B + 1;
A := A + B;
B := A + B;
end;
end;

type
Ttest2 = class(Tthread)
private

protected

procedure Execute; override;
public

end;

procedure Ttest2.Execute;
begin
while not terminated do
begin
A := A + 1;
B := B + 1;
A := A + B;
B := A + B;
end;
end;

type
Ttest3 = class(Tthread)
private

protected

procedure Execute; override;
public

end;

procedure Ttest3.Execute;
var
i : integer;
begin
i := 0;
while not terminated do
begin
if i < 100 then
begin
writeln('Number ', i, ' A: ', A); // always prints A when running at full
speed kinda strange.
i := i + 1;
end;
end;
end;

var
Test1 : Ttest1;
Test2 : Ttest2;
Test3 : Ttest3;
begin
A := 0;
B := 0;
Test1 := Ttest1.Create( true );
Test2 := Ttest2.Create( true );
Test3 := Ttest3.Create( true );

writeln('press enter to start');
readln;

Test1.Resume;
Test2.Resume;
Test3.Resume;

writeln('press enter to stop');
readln;

Test1.Terminate;
Test2.Terminate;
Test3.Terminate;

Test1.WaitFor;
Test2.WaitFor;
Test3.WaitFor;

Test1.Free;
Test2.Free;
Test3.Free;

writeln('press enter to exit');
readln;
end.

{
First run:

press enter to start

press enter to stop
Number 0 A: -2012226832
Number 1 A: -1580716968
Number 2 A: 429182693
Number 3 A: 1549779168
Number 4 A: -2140787881
Number 5 A: 2039403928
Number 6 A: 1837455892
Number 7 A: 1672078543
Number 8 A: 609224703
Number 9 A: 1132129514
Number 10 A: -1733360497
Number 11 A: 967699677
Number 12 A: -294956468
Number 13 A: 1644799607
Number 14 A: 317746373
Number 15 A: 1039403714
Number 16 A: 357560143
Number 17 A: -600877888
Number 18 A: -511189498
Number 19 A: -1943158887
Number 20 A: 2057276079
Number 21 A: -598176800
Number 22 A: 1610784767
Number 23 A: 1437970544
Number 24 A: -1381220152
Number 25 A: -1146240792
Number 26 A: -1460706272
Number 27 A: -1736477080
Number 28 A: -792665617
Number 29 A: 597369318
Number 30 A: 792521396
Number 31 A: -175430550
Number 32 A: -893516579
Number 33 A: -1475661224
Number 34 A: 1197627609
Number 35 A: 1811939327
Number 36 A: 167772160
Number 37 A: 1811939328
Number 38 A: 838860799
Number 39 A: 436207616
Number 40 A: -100663297
Number 41 A: 1811939328
Number 42 A: -1577058304
Number 43 A: 33554432
Number 44 A: 570425343
Number 45 A: 1275068415
Number 46 A: 1644167167
Number 47 A: -1174405121
Number 48 A: 1509949440
Number 49 A: 1509949440
Number 50 A: 1275068415
Number 51 A: -1174405121
Number 52 A: 1275068415
Number 53 A: 301989888
Number 54 A: -335544321
Number 55 A: -771751937
Number 56 A: -335544321
Number 57 A: 1811939328
Number 58 A: 570425344
Number 59 A: -637534209
Number 60 A: 1275068416
Number 61 A: 1811939327
Number 62 A: 1509949440
Number 63 A: 1205843952
Number 64 A: -1271340860
Number 65 A: -47069712
Number 66 A: -1150715628
Number 67 A: -469894399
Number 68 A: -1371857935
Number 69 A: 1590542906
Number 70 A: -1900063371
Number 71 A: -1062932404
Number 72 A: -41362897
Number 73 A: 341064290
Number 74 A: -843669178
Number 75 A: 192206869
Number 76 A: -338040324
Number 77 A: 2114374235
Number 78 A: -121667740
Number 79 A: 1253847409
Number 80 A: -1210516385
Number 81 A: 374279518
Number 82 A: -107188114
Number 83 A: 643288550
Number 84 A: -128300040
Number 85 A: -556719259
Number 86 A: -799412711
Number 87 A: -2046128698
Number 88 A: -2039412360
Number 89 A: -987422833
Number 90 A: 1603464566
Number 91 A: 1703937807
Number 92 A: 867622779
Number 93 A: -1591355290
Number 94 A: -1993581368
Number 95 A: 175399521
Number 96 A: 1281131255
Number 97 A: 216190725
Number 98 A: -1346762993
Number 99 A: -1797498377

Second run:

press enter to start

press enter to stop
Number 0 A: 0
Number 1 A: 135135944
Number 2 A: 459690911
Number 3 A: 1434219148
Number 4 A: -1657692174
Number 5 A: 2024915049
Number 6 A: -1949462375
Number 7 A: 1972348724
Number 8 A: 1003613400
Number 9 A: 2004497935
Number 10 A: 1320680567
Number 11 A: 466676704
Number 12 A: -441213724
Number 13 A: -82399010
Number 14 A: 834980323
Number 15 A: -151223712
Number 16 A: -89576803
Number 17 A: 2133816776
Number 18 A: -1998792832
Number 19 A: 1473612079
Number 20 A: 1156636877
Number 21 A: 1555744832
Number 22 A: -900322321
Number 23 A: 1135277616
Number 24 A: -475661969
Number 25 A: 1866641768
Number 26 A: -1434374299
Number 27 A: 2058733431
Number 28 A: 108301696
Number 29 A: -627981639
Number 30 A: -954221723
Number 31 A: -1523508186
Number 32 A: -1813251631
Number 33 A: -1905950671
Number 34 A: 52220463
Number 35 A: -1273987083
Number 36 A: 519378573
Number 37 A: 180179009
Number 38 A: 1244140292
Number 39 A: -1508748828
Number 40 A: -852356485
Number 41 A: -1394734481
Number 42 A: -1804294044
Number 43 A: -1060617107
Number 44 A: 1106347657
Number 45 A: -1208050304
Number 46 A: 2133422865
Number 47 A: 975548047
Number 48 A: 60754272
Number 49 A: -522715657
Number 50 A: 1241552250
Number 51 A: 619176750
Number 52 A: -1090118479
Number 53 A: 839196131
Number 54 A: 1238563290
Number 55 A: 2127416279
Number 56 A: 1036587285
Number 57 A: -5521947
Number 58 A: -1517976041
Number 59 A: 822632739
Number 60 A: 1931590945
Number 61 A: 71098992
Number 62 A: -2143913092
Number 63 A: -634668036
Number 64 A: -860612119
Number 65 A: 349043306
Number 66 A: 1107472876
Number 67 A: -1116514517
Number 68 A: 1786542417
Number 69 A: -578602089
Number 70 A: 831503389
Number 71 A: 1323879136
Number 72 A: 1846945861
Number 73 A: -607786566
Number 74 A: -455210041
Number 75 A: -253816673
Number 76 A: 1448511939
Number 77 A: 925915730
Number 78 A: 1744166523
Number 79 A: 1068465228
Number 80 A: -1389174457
Number 81 A: 1910075036
Number 82 A: 29450494
Number 83 A: 412116482
Number 84 A: -1530430111
Number 85 A: -1493714585
Number 86 A: 592374099
Number 87 A: 673867768
Number 88 A: 1596424145
Number 89 A: 1156104019
Number 90 A: -696837289
Number 91 A: -1935569754
Number 92 A: 1821031491
Number 93 A: 978061153
Number 94 A: -1047738971
Number 95 A: 1675863892
Number 96 A: -1576843040
Number 97 A: -1254774602
Number 98 A: 592409566
Number 99 A: -1391686259

Third run:

press enter to start

press enter to stop
Number 0 A: 1117172294
Number 1 A: 2096728732
Number 2 A: 1845167743
Number 3 A: 145117240
Number 4 A: -1173170018
Number 5 A: -439306936
Number 6 A: 1369509344
Number 7 A: -241184801
Number 8 A: -1006486352
Number 9 A: -1051012872
Number 10 A: 1381946524
Number 11 A: -1290957144
Number 12 A: 830628039
Number 13 A: 830628039
Number 14 A: 830628039
Number 15 A: 830628039
Number 16 A: 830628039
Number 17 A: 830628039
Number 18 A: 830628039
Number 19 A: 830628039
Number 20 A: 830628039
Number 21 A: 830628039
Number 22 A: 830628039
Number 23 A: 843795460
Number 24 A: -1164565777
Number 25 A: -1677797862
Number 26 A: -1249266993
Number 27 A: -2070376660
Number 28 A: 1747825380
Number 29 A: 1389155598
Number 30 A: 920170501
Number 31 A: 1015964160
Number 32 A: 1750313258
Number 33 A: -264000707
Number 34 A: 1965831929
Number 35 A: -350416589
Number 36 A: -271041785
Number 37 A: 386212935
Number 38 A: -797436868
Number 39 A: -1153782227
Number 40 A: -1392359289
Number 41 A: -1021088195
Number 42 A: 213137923
Number 43 A: -2146873396
Number 44 A: 1638472361
Number 45 A: -441418166
Number 46 A: 1110365233
Number 47 A: 716350300
Number 48 A: 1122846217
Number 49 A: 688528590
Number 50 A: 276085279
Number 51 A: 1307205155
Number 52 A: -1224257965
Number 53 A: 1299988643
Number 54 A: 1542503642
Number 55 A: -934291585
Number 56 A: 2023370003
Number 57 A: 2009290393
Number 58 A: -1198287049
Number 59 A: 1473142743
Number 60 A: 1786316909
Number 61 A: -1910805873
Number 62 A: -345226860
Number 63 A: 227160869
Number 64 A: -982777669
Number 65 A: -509759225
Number 66 A: 705426413
Number 67 A: 1431987765
Number 68 A: 1653731634
Number 69 A: 594875580
Number 70 A: -1072079126
Number 71 A: -1104423537
Number 72 A: -2127767234
Number 73 A: -2127767234
Number 74 A: -2127767234
Number 75 A: -2127767234
Number 76 A: -2127767234
Number 77 A: -2127767234
Number 78 A: -961332962
Number 79 A: -1859031676
Number 80 A: 809606124
Number 81 A: -605505931
Number 82 A: -762110533
Number 83 A: 111886037
Number 84 A: -484967131
Number 85 A: -197980098
Number 86 A: 553992363
Number 87 A: 1005382
Number 88 A: 586324089
Number 89 A: 1223165683
Number 90 A: -658977535
Number 91 A: -1815384710
Number 92 A: 15651124
Number 93 A: 95614697
Number 94 A: -1369239254
Number 95 A: 1631402090
Number 96 A: 77204765
Number 97 A: -750387986
Number 98 A: -1414427258
Number 99 A: -1965164903

Fourth run:

press enter to start

press enter to stop
Number 0 A: 0
Number 1 A: 2060579876
Number 2 A: 9908180
Number 3 A: 1388818145
Number 4 A: -1309591127
Number 5 A: -1766067488
Number 6 A: -601362174
Number 7 A: -1413304812
Number 8 A: 467113783
Number 9 A: 1827399584
Number 10 A: -266024785
Number 11 A: 1902088219
Number 12 A: -115264152
Number 13 A: 935314022
Number 14 A: -283501157
Number 15 A: -1611569119
Number 16 A: -1482959030
Number 17 A: 1705729434
Number 18 A: -173249271
Number 19 A: 1807088487
Number 20 A: 776386543
Number 21 A: 1925483173
Number 22 A: -2081385717
Number 23 A: 1082239765
Number 24 A: 19881495
Number 25 A: 105067904
Number 26 A: 106057133
Number 27 A: 1197101870
Number 28 A: 1411849757
Number 29 A: 86911688
Number 30 A: 1060789414
Number 31 A: -1262264887
Number 32 A: -1765090013
Number 33 A: -310061032
Number 34 A: -1455839069
Number 35 A: -1553779070
Number 36 A: -1503359486
Number 37 A: 1821420575
Number 38 A: 1252071942
Number 39 A: -2125227920
Number 40 A: 1033325282
Number 41 A: -1606788617
Number 42 A: 1547147626
Number 43 A: 865617912
Number 44 A: -1447716052
Number 45 A: -1924806608
Number 46 A: 1608487226
Number 47 A: -548964663
Number 48 A: 1891321076
Number 49 A: -2055655198
Number 50 A: -891844878
Number 51 A: -156005611
Number 52 A: 758629513
Number 53 A: 1347838702
Number 54 A: -79369131
Number 55 A: -1258136983
Number 56 A: -1549047936
Number 57 A: 978109159
Number 58 A: 267229592
Number 59 A: -654248820
Number 60 A: -973064023
Number 61 A: 50386432
Number 62 A: -792295908
Number 63 A: 657070998
Number 64 A: 1898030451
Number 65 A: 631336565
Number 66 A: 659232706
Number 67 A: -342674420
Number 68 A: 1208237915
Number 69 A: 1281911335
Number 70 A: 1204772337
Number 71 A: -1345736073
Number 72 A: 837564283
Number 73 A: -1125811221
Number 74 A: 1725198380
Number 75 A: -812732436
Number 76 A: 142348618
Number 77 A: 901141814
Number 78 A: -273163857
Number 79 A: -424501061
Number 80 A: -1217751965
Number 81 A: 1277750720
Number 82 A: 1869269796
Number 83 A: -1589892680
Number 84 A: -1427119389
Number 85 A: -1390396668
Number 86 A: -271899753
Number 87 A: 1119610813
Number 88 A: 1117632374
Number 89 A: 1827722357
Number 90 A: 730883439
Number 91 A: -1071324207
Number 92 A: -1542464357
Number 93 A: -598282320
Number 94 A: -1173198949
Number 95 A: -534215269
Number 96 A: -469075475
Number 97 A: 393338925
Number 98 A: 1906129761
Number 99 A: 1743568465

}

External Since: Mar 04, 2006 Posts: 6

Some of these results don't look very random.

John

Skybuck Flying wrote:

> Third run:

> Number 12 A: 830628039
> Number 13 A: 830628039
> Number 14 A: 830628039
> Number 15 A: 830628039
> Number 16 A: 830628039
> Number 17 A: 830628039
> Number 18 A: 830628039
> Number 19 A: 830628039
> Number 20 A: 830628039
> Number 21 A: 830628039
> Number 22 A: 830628039

> Number 72 A: -2127767234
> Number 73 A: -2127767234
> Number 74 A: -2127767234
> Number 75 A: -2127767234
> Number 76 A: -2127767234
> Number 77 A: -2127767234

> First run:

> Number 45 A: 1275068415
> Number 50 A: 1275068415
> Number 52 A: 1275068415

> Number 48 A: 1509949440
> Number 49 A: 1509949440
> Number 62 A: 1509949440

> Number 35 A: 1811939327
> Number 61 A: 1811939327

> Number 37 A: 1811939328
> Number 41 A: 1811939328
> Number 57 A: 1811939328