How do I convert a number to a fraction and vice versa?

PodMaster has asked for the wisdom of the Perl Monks concerning the following question: ⭐ (numbers)

Originally posted as a Categorized Question. Body may be blank.

Comment on How do I convert a number to a fraction and vice versa?

Replies are listed 'Best First'.
Re: How do I convert a number to a fraction and vice versa?⭐ by PodMaster (Abbot) on Jul 26, 2003 at 10:32 UTC
use Number::Fraction: `use Number::Fraction; my @dimensions = ( 320, 240 ); my $aspect = Number::Fraction->new( @dimensions ); print join('x', @dimensions); print $aspect; print $aspect->to_num;` [download] `320x240 4/3 1.33333333333333` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: How do I convert a number to a fraction and vice versa?⭐
by PodMaster (Abbot) on Jul 26, 2003 at 10:32 UTC

Number::Fraction

use Number::Fraction;

my @dimensions = ( 320, 240 );
my $aspect = Number::Fraction->new( @dimensions );

print join('x', @dimensions);
print $aspect;
print $aspect->to_num;
[download]

320x240
4/3
1.33333333333333
[download]

[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom