- or download this
#!/usr/bin/perl
...
print(join(';', @extracted), "\n");
}
- or download this
$ perl single.pl AAAAADDDDDEFFGMMSSTVVVVV
AAAA;ADEF;DDDD;FGMS;MSTV;VVVV
...
$ perl single.pl AAAADDDDEEEEFFFFGGGG
AAAA;DDDD;EEEE;FFFF;GGGG
- or download this
nnnnooooppppqqqq
Solution 1: (nnnn,oooo,pppp,qqqq)
Solution 2: (nopq)