Task 1

1 files changed, 45 insertions, 0 deletions

diff --git a/challenge-157/cheok-yin-fung/perl/ch-1.pl b/challenge-157/cheok-yin-fung/perl/ch-1.pl
new file mode 100644
index 0000000000..bdb01e53a6
--- /dev/null
+++ b/challenge-157/cheok-yin-fung/perl/ch-1.pl
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+# The Weekly Challenge 157
+# Task 1 Pythagorean Means
+use v5.22.0;
+use warnings;
+use List::Util qw/sum product/;
+
+if (defined($ARGV[0])) {
+    my @in = @ARGV;
+    my %ans = %{mean(@in)};
+    say "AM = ", sprintf("%.1f", $ans{a});
+    say "GM = ", sprintf("%.1f", $ans{g});
+    say "HM = ", sprintf("%.1f", $ans{h});
+}
+
+
+
+sub mean {
+    my @n = @_;
+    my %mean = (
+        "a" => (sum @n) / scalar @n,
+        "g" => exp(log(product @n)/ scalar @n),
+        "h" => (scalar @n)/(sum map {1/$_} @n),
+    );
+    return \%mean;
+}
+
+
+
+use Test::More tests => 3;
+is_deeply(
+    [4.8, 3.8, 2.8],
+    [sort {$b<=>$a} map {sprintf("%.1f", $_)} values mean(1,3,5,6,9)->%*],
+    "Example 1"
+);
+is_deeply(
+    ["6.0", 5.2, 4.4],
+    [sort {$b<=>$a} map {sprintf("%.1f", $_)} values mean(2,4,6,8,10)->%*],
+    "Example 2"
+);
+is_deeply(
+    ["3.0", 2.6, 2.2],
+    [sort {$b<=>$a} map {sprintf("%.1f", $_)} values mean(1,2,3,4,5)->%*],
+    "Example 3"
+);