in reply to Randomly generating histograms

Randal's already answered this, so you probably aren't reading further, but here's my go 
my $sum = 100;
my $elements = 30;

my @array;
for (1..$sum) { 
  ++$array[ int rand $elements ];
}

$array[$_] ||= 0 for @array;

[download]
so you can fiddle with the sum, and the number of elements you want at your leisure.

Jasper

Replies are listed 'Best First'.
Re: Re: Randomly generating histograms
by particle (Vicar) on Mar 25, 2002 at 19:14 UTC
    i'd use map for a one liner to replace for: 
    map ++$array[rand $elements], 1..$sum;

    [download]
    also, you can drop the int, like i have. and you mean 
    $array[$_] ||= 0 for 0..$elements-1;

    [download]
    don't you?

    ~Particle ;̃

[reply]
[d/l]
[select]
      i'd use map for a one liner to replace for: 
      map ++$array[rand $elements], 1..$sum;

      [download]
      I wouldn't. This is clearer, faster, and one character shorter: 
      ++$array[rand $elements] for 1..$sum;

      [download]
      Help stamp out void maps and greps!

      -- Randal L. Schwartz, Perl hacker

[reply]
[d/l]
[select]
        too true, too true! i usually take that position--i learned it here. i guess i just couldn't resist showing off a bit.

        thanks for keeping me honest, merlyn

        ~Particle ;̃

[reply]

In Section Seekers of Perl Wisdom