Re: Finding intersection of many sequences

[BrowserUk]

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

[emos]

thanks! that's exactly what I needed!

[emos]

[BrowserUk]

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.