/* * Check the PRNG for a balanced low bit * * Copyright © 2001 Bart Massey. * All Rights Reserved. See the file COPYING in this directory * for licensing information. * * Bart 2001/3 */ autoimport PRNG; int[*] t(int n) { int[2] s = {0, 0}; int i; for (i = 0; i < n; i++) s[randint(2)]++; return s; } File::printf ("%d %d\n", t (string_to_integer (argv[1]))...);