Re: Seek one liner for distributing an integer

[TilRMan]

A little late to the game, but here goes:

my %result = map
  { $_ => (  int($num / @array)
           + ($num % @array ? ($num--, 1) : 0)
          ) } @array;

One statement, strict and warnings clean, and if you take out the whitespace, it'll fit on one line. Doesn't work on negative $num though.