| Server IP : 216.92.14.13 / Your IP : 216.73.216.171 Web Server : Apache System : Linux vps4089.pairvps.com 5.15.0-190-generic #200-Ubuntu SMP Fri Aug 7 15:06:04 UTC 2026 x86_64 User : rmlac2fmr ( 1040637) PHP Version : 8.2.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/bin/ |
Upload File : |
#!/usr/bin/perl
use Math::SigFigs;
@i = qw(240 240. 241 0240 0.03 0 0.0);
@x = qw(2 3 3 2 1 0 0 );
print "Count the number of significant figures....\n\n";
print "N\tgot\texpected\n\n";
for($i=0; $i<=$#i; $i++) {
$n = $i[$i];
$x = $x[$i];
$g = CountSigFigs($n);
print "$n\t$g\t$x\n";
}