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

[download]
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.

RIP Neil Armstrong

Replies are listed 'Best First'.
Re^2: Finding intersection of many sequences
by emos (Initiate) on Sep 13, 2012 at 09:47 UTC
    thanks! that's exactly what I needed!
[reply]
    993460
    by emos (Initiate) on Sep 13, 2012 at 11:22 UTC
    		[reply]

          Replies to yourself do not get anyones attention. I only saw it by luck.

          What is the easiest way to do this?

          You'll need to clarify the question, because I've read it 3 times and I've got nothing. Maybe add a simple example as you did with your first question.

          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.

          RIP Neil Armstrong
    		[reply]

    In Section Seekers of Perl Wisdom