Re^3: What I am missing here

Can go simpler...

sub deck_maker {
    map {
        my $suit = $_;
        map { "$_ of $suit" } 2..10, qw(J Q K A)
    } qw(spades hearts diamonds clubs);
}
[download]

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Comment on Re^3: What I am missing here Download Code

Replies are listed 'Best First'.
Re^4: What I am missing here by heatblazer (Scribe) on Mar 21, 2012 at 05:21 UTC
Yes, I got that but I want to be more explicit of what is going on... my pick_a_card could be just : `sub pick_a_card { pop; }` [download] but I prefer it my way	[reply] [d/l]
Re^4: What I am missing here by tobyink (Canon) on Mar 23, 2012 at 22:44 UTC
With List::MapMulti this can be reduced to: `sub deck_maker { mapm { join " of ", @_ } [ 2..10, qw(J Q K A) ], [ qw(spades hearts diamonds clubs) ] }` [download] `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply] [d/l]