in reply to Re: Filling an array. (Golf challenge?)
in thread Filling an array. (Golf challenge?)

This glob is really cool. When I posted my request I was just hoping to see something of this sort popping up.
In your latest try
map{my$a=$_;map$_.$a,'a'..'h'}1..8  # 34
you managed to squeeze my best one, which is 50, but can be shrinked down to 40:
my @map2_ar = map{my$r=$_;map{$_.$r}('a'..'h')}(1..8); # 123456789_123456789_123456789_1234567890 (40)
just by removing the () and {}!
Thanks for the tips.
 _  _ _  _  
(_|| | |(_|><
 _|   

Replies are listed 'Best First'.
Re: Filling an array. (Golf challenge?)
by Anonymous Monk on Dec 28, 2001 at 00:23 UTC
    my @a = map{$r=$_;map$_.$r,a..h}1..8; # 123456789_123456789_123456789 (29)