Convert decimal numbers to fractions

convert-decimal-to-fraction.pl

sub float2rat {
	my $x = shift;
    my $tolerance = 1.0E-6;
    my $h1 = 1; 
    my $h2 = 0;
    my $k1 = 0;
    my $k2 = 1;
    my $b = $x;

    do {
    	my $a = floor($b);
        my $aux = $h1;
        $h1 = $a * $h1 + $h2;
        $h2 = $aux;
        $aux = $k1;
        $k1 = $a * $k1 + $k2;
        $k2 = $aux;
        $b = 1/($b-$a);
    }
    while (abs($x - $h1 / $k1) > $x * $tolerance);
    
    return $h1 . "/" . $k1;
}