mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-26 11:07:48 +03:00
8 lines
175 B
Plaintext
8 lines
175 B
Plaintext
|
|
-- sum up a bunch of random numbers
|
|
go acc n =
|
|
if n == 10000 then acc
|
|
else go (acc + Random.natIn 0 1000) (n + 1)
|
|
|
|
main = do
|
|
timeit "random" '(splitmix 19 '(go 0 0)) |