view release on metacpan or  search on metacpan

lib/Algorithm/RandomMatrixGeneration.pm  view on Meta::CPAN

23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
my $precision = shift;
my $seed = shift;
 
my @tmp_rmar = @$ref_rmar;
my @tmp_cmar = @$ref_cmar;
 
my $n = $#tmp_rmar;
my $m = $#tmp_cmar;
 
# error checks
if(!$n)
{
        print STDERR "No row marginals provided.\n";
        exit 1;
}
 
if(!$m)
{
        print STDERR "No column marginals provided.\n";
        exit 1;