20251125

2025-11-25 00:28:51 +08:00
commit eb3f16c30e
406 changed files with 91653 additions and 0 deletions
@@ -0,0 +1,39 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use FindBin;
+use lib ("$FindBin::RealBin/../../PerlLib");
+use BHStats;
+
+my $count = 0;
+my $sum = 0;
+my @values;
+
+while (<STDIN>) {
+    chomp;
+    $sum += $_;
+    $count++;
+    push (@values, $_);
+}
+
+@values = sort {$a<=>$b} @values;
+
+if ($count) {
+    my $average = ($sum/$count);
+    my $median_pos = int ($count/2);
+    print "\n"; 
+    print "MIN: " . $values[0] . "\n";
+    print "MAX: " . $values[$#values] . "\n";
+    print "Sum: $sum\n";
+    printf ("Average: %.2f\n", $average);
+    print "Median: " . BHStats::median(@values) . "\n";
+    my $stdev = BHStats::stDev(@values);
+    printf ("stDev from Average: %.2f\n", $stdev);
+
+    my $geoMean = &BHStats::geometric_mean(@values);
+    if ($geoMean) {
+	printf ("geoMean: %.2f\n", $geoMean);
+    }
+}
+