Help for this page

Select Code to Download


  1. or download this
                        AAA
                    ATG
...

Note that the length of these strings in the set 
maybe greater than 3.
  2. or download this
    $VAR1 =  {
            'A' => [2,1,1],
...
            'G' => ['0.25','0','0.25']
          }
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
  }
  return $sum;
}