Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: perl puzzle - cartoon couple registry (beginner, semi-golf)

by Pug (Monk)
on Jun 12, 2002 at 23:45 UTC ( #174066=note: print w/replies, xml ) Need Help??

in reply to perl puzzle - cartoon couple registry (beginner, semi-golf)

I have been on a map kick recently so...
using 2 " and no ; / \ or enter keys

#!/usr/bin/perl -l %couples = ( Fred=>"Wilma", Barney=>"Betty", George=>"Jane", Homer=>"Marge", Pter=>"Lous" ); map print, map "$_ is married to $couples{$_}",sort keys%couples
It weights in at 63 characters.
I was reading the above posts and I was able to get this
%c=%couples,map print,map "$_ is married to $c{$_}",sort keys%c
Which is 62 characters.
Update. Thanks for the getting rid of the extra map belg4mit.

I don't know what I was thinking *grin*
In a semi related note I used this when someone wanted to a print out of the @INC.

Replies are listed 'Best First'.
Re: Re: perl puzzle - cartoon couple registry (beginner, semi-golf)
by belg4mit (Prior) on Jun 13, 2002 at 03:32 UTC
    map print("$_ is married to $couples{$_}"),sort keys%couples

    60 char, who needs a semi-colon? map map is inefficient and in this case wasteful.

    perl -pew "s/\b;([mnst])/'$1/g"

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (3)
As of 2023-03-27 00:01 GMT
Find Nodes?
    Voting Booth?
    Which type of climate do you prefer to live in?

    Results (63 votes). Check out past polls.