A continuación sigue el código de normalise
. La función ''normaliza''
un quebrado, esto es lo reduce a una fracción irreducible.
sub normalise { my $self = shift; # Calculamos el máximo común divisor my $hcf = _hcf($self->{num}, $self->{den}); # ... y dividmos ambos por el hcf $self->{num} /= $hcf; $self->{den} /= $hcf; # Denominador positivo en forma normalizada if ($self->{den} < 0) { $self->{num} *= -1; $self->{den} *= -1; } }
Casiano Rodríguez León