Help for this page

Select Code to Download

Select or download this

use Algorithm::Diff qw(diff sdiff LCS traverse_sequences);            
+          
my @seq1= split //,"1  AGCTGATCGAGCTAGTACCCTAGCTC 26";
...
    print "\n";
    
}

Select or download this
```
+ 1 5 

...
+ 30 4 
- 31 6 
+ 31 0
```