/usr/share/nickle/examples/randtest.5c is in nickle 2.77-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | /*
* 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]))...);
|