La Función de Normalización de una Fracción

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;
  }
}