Select Code to Download

print "contains fractional component\n" if $number =~ /\.(?!0*$)/;

sub r { $_[0] ? 'fractional' : 'integer' }

...
      "\n",
   );
}

1.00:
method 1: fractional
...
method 2: fractional
method 3: integer
method 4: integer