Data update

Task/Linear-congruential-generator/PascalABC.NET/linear-congruential-generator-1.pas

@@ -0,0 +1,21 @@
+var
+  bsdseed, msseed: int64;
+
+function bsdrand: cardinal;
+begin
+  bsdseed := (1_103_515_245 * bsdseed + 12_345) and $7fffffff;
+  bsdrand := bsdseed;
+end;
+
+function msrand: cardinal;
+begin
+  msseed := (214_013 * msseed + 2_531_011) and $ffffffff;
+  msrand := msseed shr 16;
+end;
+
+begin
+  writeln('      BSD            MS');
+  bsdseed := 0;
+  msseed := 0;
+  loop 10 do writeln(bsdrand:12, msrand:12);
+end.

Task/Linear-congruential-generator/PascalABC.NET/linear-congruential-generator-2.pas

@@ -0,0 +1,39 @@
+function bsdRand(seed: integer): sequence of integer;
+begin
+  while true do
+  begin
+    seed := (1_103_515_245 * seed + 12_345) and $7fffffff;
+    yield seed
+  end;
+end;
+
+function msvcrtRand(seed: integer): sequence of integer;
+begin
+  while true do
+  begin
+    seed := (214_013 * seed + 2_531_011) and $7fffffff;
+    yield seed shr 16
+  end;
+end;
+
+begin
+  'BSD with seed = 1'.println;
+  var count := 0;
+  var iter1 := bsdRand(1);
+  foreach var val in iter1 do
+  begin
+    println(val);
+    count += 1;
+    if count = 10 then break;
+  end;
+  println;
+  'Microsoft with seed = 0'.Println;
+  count := 0;
+  var iter2 := msvcrtRand(0);
+  foreach var val in iter2 do
+  begin
+    println(val);
+    count += 1;
+    if count = 10 then break;
+  end;
+end.