Re: Filling buckets

You know, I realized today that you never said anything about order.

So deal.

sub split_to_n {
  my @buckets = map {[]} 1..shift;
  while (@_) {
    my $b = shift @buckets;
    push @$b, shift;
    push @buckets, $b;
  }
  @buckets;
}
[download]

Comment on Re: Filling buckets Download Code

Replies are listed 'Best First'.
Re: Re: Filling buckets by merlyn (Sage) on Jan 04, 2001 at 06:17 UTC
or for that matter then: `sub split_to_n { my @return = map [], 1..shift; { for(@return) { return @return unless @_; push @$_, shift } redo } }` [download] -- Randal L. Schwartz, Perl hacker	[reply] [d/l]

In Section Seekers of Perl Wisdom