perl -slw
####
print join ' ', @_;
##
##
print join(' ', @_), "\n";
##
##
sub nForX(&@)
##
##
&nForX( $code, $n-1, @_, $i );
##
##
\( @a, @b, @c )
##
##
for my $i (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
{
&nForX($code, 2, \@b, \@c, $i);
}
##
##
&nForX($code, 2, \@b, \@c, 1);
##
##
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);
}
##
##
&nForX($code, 1, \@c, 1, 'a');
##
##
for my $i ('!', '"', '#', '$', '%', '&', "'", '(', ')', '*', '+', ',', '-', '.', '/')
{
&nForX($code, 0, 1, 'a', $i);
}
##
##
&nForX($code, 0, 1, 'a', '!');
##
##
return print join ' ', 1, 'a', '!';
##
##
&nForX($code, 0, 1, 'a', '"');