Help for this page

Select Code to Download

Select or download this

my %result;
my $num = 13;
my @array = qw(a b c d e);
@result{@array} = map int($num/@array) + $_ < $num%@array, 0..$#array;

Select or download this

@result{@array} =
  map int($num/@array) + ($_ * ($num%@array) % @array < $num%@array),
    0..$#array;