File: random3_test.ml

package info (click to toggle)
ocaml-stdlib-random 1.2.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 332 kB
  • sloc: ml: 1,767; ansic: 42; makefile: 3
file content (18 lines) | stat: -rw-r--r-- 1,212 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
let array =[|43912428; 50948593; 190204223; 1182778; 8476367; 69420907; 442520671;
  415602325; 14100924; 358914778; 7706935; 182876656; 267496847; 67366534;
  515049525; 328741006; 172024291; 214616330; 404924642; 523596505; 49059379;
  116839578; 223328214; 376791369; 1230043; 505817095; 463055100; 196306511;
  265426042; 120055538; 152713203; 510105334; 492135262; 18874896; 223743250;
  139652427; 156322660; 215149727; 532746946; 152288584; 487850872;
  163641345; 488235231; 88252913; 484417929; 466441459; 64447684; 458932813;
  78783099; 295980017; 262662588; 346667979; 161017702; 19920265; 113460383;
  45142471; 19894776; 116388411; 197489289; 273902409; 189476445; 58362962;
  388836747; 506236186; 377789674; 231450185; 322529083; 423819507;
  282516261; 510925559; 481029590; 123004251; 378257675; 356288961; 74978506;
  533477308; 46410125; 287775898; 298853270; 80013142; 264926200; 188846776;
  6103578; 426443744; 139975803; 266173586; 18376893; 512030038; 135263307;
  421232539; 413554836; 345799105; 273512689; 384712781; 121653858;
  328769634; 395091530; 273893402; 512072420; 230063278|]

let () =
  assert (Random3.init 100; Array.init 100 (fun _ -> Random3.int (1 lsl 29) ) = array )