in reply to Clever map / foreach algorithm sought

Hi bmcatt,

Ahhh - another friday afternoon and fine day it is for some golf.


#! /usr/local/bin/perl -w use strict; my @x = ( 4, 4, 2 ); my @y; my $i = -1; #56 chars with whitespace removed. @y = map {sprintf("XX%02d:%d",!$_?++$i:$i,$_)} map {0..$_} @x; foreach (@y) { print ">$_\n"; }
I'm afraid I can't offer useful advice on your algorithm at this time. I think I see what you are trying to accomplish and this approach seems reasonable enough to me.

Good luck,

P.S. I know this wasn't a golfing question, but I'm just in that kind of mood. I've never tried golfing before so be easy on me. :)