Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...

my @directlyconnected = grep !$subset{$_}, @seq;
print "$_\n" for @directlyconnected;;

Select or download this
```
1 2 3 4
1 5
...
5 7
7 8
8 9
```