Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
    return ''; # Just for completeness
  }
}
  2. or download this
    (1, 1)  A
(2, 1)  ABA
...
(3, 3)  ABABA
(4, 14) AABBBBBBBBBBBBBBAA
(7, 4)  AAABBABBAAA
  3. or download this
    sub interleave2 {
  my ($remaining_a, $remaining_b) = @_;
...
    return ''; # Just for completeness
  }
}
  4. or download this
    (1, 1)  AB
(2, 1)  ABA
...
(3, 3)  ABABBA
(4, 14) ABBBBABBBBBABBBBBA
(7, 4)  AAABABABABA