Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Clever map / foreach algorithm sought

by {NULE} (Hermit)
on May 03, 2002 at 20:45 UTC ( #163901=note: print w/replies, xml ) Need Help??


in reply to Clever map / foreach algorithm sought

Hi bmcatt,

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

Fore!

#! /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,
{NULE}
--
http://www.nule.org

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. :)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://163901]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (2)
As of 2022-05-26 05:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (93 votes). Check out past polls.

    Notices?