SBECK / Math-SigFigs-1.21 / examples / count 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

              
#!/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";
}