in reply to Re: Re: (GOLF) combine N arrays
in thread (GOLF) combine N arrays

Ha, mine is VERY similar to that, except I used a recursive function with nested map instead of a reversed for.. very nice...

Ungolfed: 

sub foo {
    my $a = shift @_;
    return [] unless $a;
    map { my $b = $_; map { [$_,@$b] } @$a } foo(@_);
}

[download]

                - Ant
                - Some of my best work - (1 2 3)

Replies are listed 'Best First'.
Re4: (GOLF) combine N arrays
by belg4mit (Prior) on Apr 15, 2002 at 23:56 UTC
    I was playing with something very similar to this but it wasn't coming out right. I gave up after an hour or so to go tackle another problem that didn't get solved (bike repair). 
    sub foo{
  my $F= shift;
  @G = @_ ? @{foo(@_)} : [] x scalar @$F;
  foreach my $e (@$F){
    push @H, map {[unshift @{$_}, "$e($i)"]} @G;
  }
  \@H;
}

    [download]
    That was of course just trying to get it to work, a proper golf would have been shorter.

    --
    perl -pe "s/\b;([mnst])/'\1/mg"

[reply]
[d/l]

In Section Meditations