Help for this page

Select Code to Download

Select or download this

sub add {
  my ($l, $r, $rev) = @_;
...
               $r->{den} * $l->{den});
    } else {
...

Select or download this

sub add {
  my ($l, $r, $rev) = @_;
...
               $r->{den} * $l->{den});
    } else {
...