For the record, the above modified-out-of-all-recognition post originally contained following which is entirely different in both content and tone:
What does that have to do with anything?
#! perl -slw use strict; use Algorithm::Loops qw( NestedLoops ); sub nFor(&@) { my $cb = shift; NestedLoops([ map [ 0..$_-1 ], @_ ], $cb); } my @digits = 1 .. 3; nFor { print join '', @digits[ @_ ]; } ( 3 ) x 4;
In reply to Re^5: Generating lists of strings
by BrowserUk
in thread Generating lists of strings
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |