gc.pl

# Also possible that
# 'AUG' => '[',

my %sequence_alphabet = (
'GCU' => 'A',
'GCC' => 'A',
'GCA' => 'A',
'GCG' => 'A',

'CGU' => 'R',
'CGC' => 'R',
'CGA' => 'R',
'CGG' => 'R',
'AGA' => 'R',
'AGG' => 'R',

'AAU' => 'N',
'AAC' => 'N',

'GAU' => 'D',
'GAC' => 'D',

'UGU' => 'C',
'UGC' => 'C',

'CAA' => 'Q',
'CAG' => 'Q',

'GAA' => 'E',
'GAG' => 'E',

'GGU' => 'G',
'GGC' => 'G',
'GGA' => 'G',
'GGG' => 'G',

'CAU' => 'H',
'CAC' => 'H',

'AUU' => 'I',
'AUC' => 'I',
'AUA' => 'I',

'AUG' => 'M',

'UUA' => 'L',
'UUG' => 'L',
'CUU' => 'L',
'CUC' => 'L',
'CUA' => 'L',
'CUG' => 'L',

'AAA' => 'K',
'AAG' => 'K',

'UUU' => 'F',
'UUC' => 'F',

'CCU' => 'P',
'CCC' => 'P',
'CCA' => 'P',
'CCG' => 'P',

'UCU' => 'S',
'UCC' => 'S',
'UCA' => 'S',
'UCG' => 'S',
'AGU' => 'S',
'AGC' => 'S',

'ACU' => 'T',
'ACC' => 'T',
'ACA' => 'T',
'ACG' => 'T',

'UGG' => 'W',

'UAU' => 'Y',
'UAC' => 'Y',

'GUU' => 'V',
'GUC' => 'V',
'GUA' => 'V',
'GUG' => 'V',

'UAA' => ']',
'UGA' => ']',
'UAG' => ']',

);

my %sequence_alphabet_compressed = (

'GCN' => 'A',

'CGN' => 'R',
'MGR' => 'R',

'AAY' => 'N',

'GAY' => 'D',

'UGY' => 'C',

'CAR' => 'Q',

'GAR' => 'E',

'GGN' => 'G',

'CAY' => 'H',

'AUH' => 'I',

'YUR' => 'L',
'CUN' => 'L',

'AAR' => 'K',

'AUG' => 'M',

'UUY' => 'F',

'CCN' => 'P',

'UCN' => 'S',
'AGY' => 'S',

'ACN' => 'T',

'UGG' => 'W',

'UAY' => 'Y',

'GUN' => 'V',

'UAR' => ']',
'URA' => ']',

);

my %sequence_alphabet_color = (

'R' => 'T',
'G' => 'A',
'B' => 'C',
'Y' => 'G',

);

# ...

sub fibonacci {
  my $i;
  my $s;
  my $a = 0;
  my $b = 1;
  my $n = $_[0];
  for ($i = 0; $i < $n; $i ++) {
    $s = $a + $b;
    $a = $b;
    $b = $s;
  }
  return $b - $a;
}