gistfile1.hrl

-module(matrix).

-compile(export_all).

random(Size, MaxValue) ->
    random(0, 0, Size, MaxValue, [], []).

-define(VALUE(X, Y), value(X, Y, MaxValue)).

value(X, X, _MaxValue) ->
    0;
value(_, _, MaxValue) ->                                                                                                                                                                                            
    random:uniform(MaxValue).

random(Size, Size, Size, MaxValue, Row, Acc) ->
    [[?VALUE(Size, Size) | Row] | Acc];

random(Size, Y, Size, MaxValue, Row, Acc) ->
    random(0, Y+1, Size, MaxValue,
                  [], [[?VALUE(Size, Y) | Row] | Acc]);

random(X, Y, Size, MaxValue, Row, Acc) ->
    random(X+1, Y, Size, MaxValue,
                  [?VALUE(X, Y) | Row], Acc).