Is this possible in PERL?
Yes: #! perl -slw
use strict;
sub nFor {
my $n = shift;
if( $n ) {
for my $i ( @{ shift() } ) {
nFor( $n-1, @_, $i );
}
}
else {
print join ' ', @_;
}
}
my @a = 1..10;
my @b = 'a'..'z';
my @c = map chr, 33 .. 47;
nFor( 3, \@a, \@b, \@c );
__END__
C:\test>junk90
1 a !
1 a "
1 a #
1 a $
1 a %
1 a &
1 a '
1 a (
1 a )
1 a *
1 a +
1 a ,
1 a -
1 a .
1 a /
1 b !
1 b "
...
10 y -
10 y .
10 y /
10 z !
10 z "
10 z #
10 z $
10 z %
10 z &
10 z '
10 z (
10 z )
10 z *
10 z +
10 z ,
10 z -
10 z .
10 z /
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|