aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -18,22 +18,12 @@ end;
begin
'BSD with seed = 1'.println;
var count := 0;
var iter1 := bsdRand(1);
foreach var val in iter1 do
begin
foreach var val in iter1.Take(10) do
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
foreach var val in iter2.Take(10) do
println(val);
count += 1;
if count = 10 then break;
end;
end.