Linear congruential generator: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,190: / Line 2,190: @@
 =={{header|Nim}}==
 <lang nim>proc bsdRand(seed: int): iterator: int =
-  var seed = seed
+  var state = seed
   result = iterator: int =
     while true:
-      seed = (1103515245 * seed + 12345) and 0x7fffffff
+      state = (1_103_515_245 * state + 12_345) and 0x7fffffff
-      yield seed
+      yield state
 proc msvcrtRand(seed: int): iterator: int =
-  var seed = seed
+  var state = seed
   result = iterator: int =
     while true:
-      seed = (214013 * seed + 2531011) and 0x7fffffff
+      state = (214_013 * state + 2_531_011) and 0x7fffffff
-      yield seed</lang>
+      yield state shr 16
+echo "BSD with seed = 1 (OEIS A096553):"
+var count = 0
+let iter1 = bsdRand(1)
+for val in iter1():
+  echo val
+  inc count
+  if count == 10:
+    break
+echo ""
+echo "Microsoft with seed = 0 (OEIS A096558):"
+count = 0
+let iter2 = msvcrtRand(0)
+for val in iter2():
+  echo val
+  inc count
+  if count == 10:
+    break</lang>
+{{out}}
+<pre>BSD with seed = 1 (OEIS A096553):
+1103527590
+377401575
+662824084
+1147902781
+2035015474
+368800899
+1508029952
+486256185
+1062517886
+267834847
+Microsoft with seed = 0 (OEIS A096558):
+</pre>
 =={{header|Oforth}}==