Select Code to Download

$num = "6/2";
# like this
...
$num = $n/$d;
# or (unsafe for untrusted input)
$num = eval $num;

$ perl -we'print "not equal" if 1/6 + 1/6 + 1/6 + 1/6 + 1/6 != 1'
not equal

$ perl -we'use Math::BigRat; $onesixth = Math::BigRat->new("1/6");
> print "equal" if $onesixth+$onesixth+$onesixth+$onesixth+$onesixth+
>                  $onesixth == 1'
equal