[erlang-questions] Generating a list of lists containing random numbers

Raimo Niskanen raimo+erlang-questions@REDACTED
Tue Jul 3 08:33:12 CEST 2018


On Tue, Jul 03, 2018 at 01:15:17PM +0900, zxq9@REDACTED wrote:
> On 2018年7月2日月曜日 23時36分10秒 JST Awsaf Rahman wrote:
> > Hello!
> > 
> > I am trying to determine the execution time for my matrix multiplication
> > program and for that I need to generate a large enough List of Lists of
> > random integers. Say I want to generate a matrix with a 1000 rows (that is
> > 1000 lists inside a list). Is there any way of doing it? I can generate a
> > list of random numbers using list comprehension but can't figure out how to
> > go about building a list of lists.
> 
> Wheels within wheels, man...
> 
>   -module(genset).
>   -export([generate/1]).
> 
>   generate(Size) ->
>       Generate = fun() -> rand:uniform(1000) end,
>       MakeList = fun() -> populate(Generate, Size, []) end,
>       populate(MakeList, Size, []).
> 
> 
>   populate(_, Size, Acc) when Size < 0 ->
>       Acc;
>   populate(Generate, Size, Acc) ->
>       populate(Generate, Size - 1, [Generate() | Acc]).
> 
> 
> -Craig

This may be a missing function for the lists module:

    buildr(N, Fun, Acc) ->
	buildr(N, Fun, Acc, []).
    %%
    buildr(0, _Fun, Acc, R) ->
	{R, Acc};
    buildr(N, Fun, Acc, R) ->
	{V, NewAcc} = Fun(Acc),
	buildr(N - 1, Fun, NewAcc, [V|R]).

Example usage:

    Base = 0,
    Range = 1 bsl 32,
    {ListOfLists, _NewSeed} =
        buildr(
            1000,
            fun (Seed) ->
                buildr(
                    1000,
                    %%fun rand:uniform_s/1,
                    fun (S) ->
                        {V, NewS} = rand:uniform_s(Range, S),
                        {Base + V - 1, NewS}
                    end,
                    Seed)
            end,
            rand:seed_s(exrop)),

-- 

/ Raimo Niskanen, Erlang/OTP, Ericsson AB



More information about the erlang-questions mailing list