From 932da7a615da96e865a8a2e16da84eeb91fd74e2 Mon Sep 17 00:00:00 2001
From: "E. Choroba" <choroba@matfyz.cz>
Date: Sun, 22 Sep 2019 23:44:46 +0200
Subject: Add E. Choroba's solution to 026/2

---
 challenge-026/e-choroba/perl5/ch-2.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 challenge-026/e-choroba/perl5/ch-2.pl

diff --git a/challenge-026/e-choroba/perl5/ch-2.pl b/challenge-026/e-choroba/perl5/ch-2.pl
new file mode 100755
index 0000000000..caaa8e8244
--- /dev/null
+++ b/challenge-026/e-choroba/perl5/ch-2.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use List::Util qw{ sum };
+
+use constant PI => 4 * atan2(1, 1);
+
+sub mean {
+    my @radians = map $_ * 2 * PI / 360, @_;
+    atan2(1 / @_ * sum(map sin, @radians),
+          1 / @_ * sum(map cos, @radians))
+        / 2 / PI * 360
+}
+
+use Test::More;
+is sprintf('%.3f', mean(0, 0, 90)), 26.565;
+
-- 
cgit