Help for this page

Select Code to Download

Select or download this

my $price = ($wt || 1) * 10;
$price = 10 * $price/abs($price) if abs($price) < 10;

Select or download this

perl blrg.pl 2.3

...
Next Weight: -2.3
Price: -23
Next Weight: