RosettaCodeData/Task/Linear-congruential-generator/Bc/linear-congruential-generator.bc
2017-09-25 22:28:19 +02:00

19 lines
327 B
Text

/* BSD rand */
define rand() {
randseed = (randseed * 1103515245 + 12345) % 2147483648
return randseed
}
randseed = 1
rand(); rand(); rand(); print "\n"
/* Microsoft rand */
define rand() {
randseed = (randseed * 214013 + 2531011) % 2147483648
return randseed / 65536
}
randseed = 1
rand(); rand(); rand(); print "\n"