diff options
Diffstat (limited to 'src/randoms.erl')
| -rw-r--r-- | src/randoms.erl | 21 |
1 files changed, 7 insertions, 14 deletions
diff --git a/src/randoms.erl b/src/randoms.erl index 3dc714b6f..0fd1f304c 100644 --- a/src/randoms.erl +++ b/src/randoms.erl @@ -25,35 +25,28 @@ %%%---------------------------------------------------------------------- -module(randoms). + -author('alexey@process-one.net'). -export([get_string/0]). -export([start/0, init/0]). - start() -> register(random_generator, spawn(randoms, init, [])). init() -> - {A1, A2, A3} = now(), - random:seed(A1,A2,A3), - loop(). + {A1, A2, A3} = now(), random:seed(A1, A2, A3), loop(). loop() -> receive - {From, get_random, N} -> - From ! {random, random:uniform(N)}, - loop(); - _ -> - loop() + {From, get_random, N} -> + From ! {random, random:uniform(N)}, loop(); + _ -> loop() end. - get_string() -> - random_generator ! {self(), get_random, 65536*65536}, + random_generator ! {self(), get_random, 65536 * 65536}, receive - {random, R} -> - integer_to_list(R) + {random, R} -> jlib:integer_to_binary(R) end. - |