From 8ee24e8301cd8c63456e24617c3661437cb83054 Mon Sep 17 00:00:00 2001
From: Walt Mankowski <waltman@pobox.com>
Date: Tue, 1 Dec 2020 19:17:53 -0500
Subject: Perl code for challenge 89 task 1

---
 challenge-089/walt-mankowski/perl/ch-1.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 challenge-089/walt-mankowski/perl/ch-1.pl

diff --git a/challenge-089/walt-mankowski/perl/ch-1.pl b/challenge-089/walt-mankowski/perl/ch-1.pl
new file mode 100644
index 0000000000..14a6a23358
--- /dev/null
+++ b/challenge-089/walt-mankowski/perl/ch-1.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use feature qw(:5.32);
+use experimental qw(signatures);
+
+# TASK #1 › GCD Sum
+# Submitted by: Mohammad S Anwar
+#
+# You are given a positive integer $N.
+#
+# Write a script to sum GCD of all possible unique pairs between 1 and $N.
+
+sub gcd($a, $b) {
+    return $b == 0 ? $a : gcd($b, $a % $b);
+}
+
+my $n = $ARGV[0];
+my $sum = 0;
+for my $i (1..$n-1) {
+    for my $j ($i+1..$n) {
+        $sum += gcd($j, $i);
+    }
+}
+
+say $sum;
-- 
cgit