Re^2: Arithmetic with fractions

Why are you capturing to $1? You don't deal with signs, so how about:

sub fconv {
    my $f = shift;
    if ($$f =~ m!([\-\+]*)\s*(?:(\d+)\s+)?(\d+)\s*/\s*(\d+)!) {
        $$f = $2 + $3/$4;
        $$f = -$$f if $1 eq '-';
    }
}
[download]

cheers

tachyon

Comment on Re^2: Arithmetic with fractions Download Code

Replies are listed 'Best First'.
Re^3: Arithmetic with fractions by TedPride (Priest) on Sep 22, 2004 at 08:07 UTC
`$fraction = '-32 2/5'; &fconv(\$fraction); sub fconv { my $f = shift; if ($$f =~ /(-?) ?((\d+) )?(\d+) ?\/ ?(\d+)/) { $$f = ($1 eq '-' ? -1 : 1) * ($3 + $4/$5); } }` [download] There, it now works with negatives. My bad on the earlier version :) As for Perl's problems with number management, that can't really be helped. You can always use the fractions class mentioned above, or round your results to the nearest thousandth, which should produce the same results.	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Arithmetic with fractions
by TedPride (Priest) on Sep 22, 2004 at 08:07 UTC

$fraction = '-32 2/5';
&fconv(\$fraction);

sub fconv {
    my $f = shift;
    if ($$f =~ /(-?) ?((\d+) )?(\d+) ?\/ ?(\d+)/) {
        $$f = ($1 eq '-' ? -1 : 1) * ($3 + $4/$5);
    }
}
[download]

As for Perl's problems with number management, that can't really be helped. You can always use the fractions class mentioned above, or round your results to the nearest thousandth, which should produce the same results.

[reply]
[d/l]