-module(rndtest). -compile([export_all]). start () -> spawn (rndtest, proc, []), spawn (rndtest, proc, []), spawn (rndtest, proc, []), spawn (rndtest, proc, []). proc () -> {A1, A2, A3} = now (), io:format ("Seed of ~p is ~p~n", [self(), {A1,A2,A3}]), random:seed (A1, A2, A3), io:format ("Number generated from proc ~p is ~p~n", [self(), random:uniform (10)]).