
Think about Loose Coupling
	PerlMonks

Re^3: Massive expansion of a hash of arrays?

by Athanasius (Archbishop)

on Jul 19, 2014 at 08:09 UTC ( [id://1094288]=note: print w/replies, xml )

Need Help??

Help for this page

Select Code to Download

Select or download this
```
perl -slw
```
Select or download this
```
print join ' ', @_;
```
Select or download this
```
print join(' ', @_), "\n";
```
Select or download this
```
sub nForX(&@)
```
Select or download this
```
&nForX( $code, $n-1, @_, $i );
```
Select or download this
```
\( @a, @b, @c )
```

Select or download this

for my $i (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
{
    &nForX($code, 2, \@b, \@c, $i);
}

Select or download this
```
&nForX($code, 2, \@b, \@c, 1);
```

Select or download this

for my $i ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l',
+ 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z'
+)
{
    &nForX($code, 1, \@c, 1, $i);
}

Select or download this
```
&nForX($code, 1, \@c, 1, 'a');
```

Select or download this

for my $i ('!', '"', '#', '$', '%', '&', "'", '(', ')', '*', '+', ',',
+ '-', '.', '/')
{
    &nForX($code, 0, 1, 'a', $i);
}

Select or download this
```
&nForX($code, 0, 1, 'a', '!');
```
Select or download this
```
return print join ' ', 1, 'a', '!';
```
Select or download this
```
&nForX($code, 0, 1, 'a', '"');
```

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1094288]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others examining the Monastery: (2)

As of 2024-04-26 02:20 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found