in reply to Finding intersection of many sequences
Try this:
for my $seq1 ( 1 .. 5 ) { for my $seq2 ( 1 .. $seq1 - 1, $seq1 + 1 .. 5 ) { print "$seq1 : $seq2"; } } ;; 1 : 2 1 : 3 1 : 4 1 : 5 2 : 1 2 : 3 2 : 4 2 : 5 3 : 1 3 : 2 3 : 4 3 : 5 4 : 1 4 : 2 4 : 3 4 : 5 5 : 1 5 : 2 5 : 3 5 : 4
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.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Finding intersection of many sequences
by emos (Initiate) on Sep 13, 2012 at 09:47 UTC | |
by BrowserUk (Patriarch) on Sep 13, 2012 at 19:50 UTC |
In Section
Seekers of Perl Wisdom