From de39da4246473f42d56f6b895e8d6a11e97e89e1 Mon Sep 17 00:00:00 2001
From: "Jaldhar H. Vyas" <jaldhar@braincells.com>
Date: Sun, 12 May 2019 18:55:24 -0400
Subject: Challenge 7 problem 1 by Jaldhar H. Vyas

---
 challenge-007/jaldhar-h-vyas/perl5/ch-1.pl | 24 ++++++++++++++++++++++++
 challenge-007/jaldhar-h-vyas/perl6/ch-1.p6 | 15 +++++++++++++++
 2 files changed, 39 insertions(+)
 create mode 100755 challenge-007/jaldhar-h-vyas/perl5/ch-1.pl
 create mode 100755 challenge-007/jaldhar-h-vyas/perl6/ch-1.p6

diff --git a/challenge-007/jaldhar-h-vyas/perl5/ch-1.pl b/challenge-007/jaldhar-h-vyas/perl5/ch-1.pl
new file mode 100755
index 0000000000..1ed5de98d9
--- /dev/null
+++ b/challenge-007/jaldhar-h-vyas/perl5/ch-1.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use 5.010;
+
+# Niven numbers are also known as Harshad numbers.  Coincidentally Harshad is
+# my patronym.
+
+# This script is dedicated to the memory of my father Dr. Harshad V. Vyas
+# (1935-2019)
+
+say 0;
+
+for my $number (1 .. 50) {
+    my $total = 0;
+    for my $digit (split //, $number) {
+        $total += $digit;
+    }
+
+    if ($number % $total == 0) {
+        say $number;
+    }
+}
+
diff --git a/challenge-007/jaldhar-h-vyas/perl6/ch-1.p6 b/challenge-007/jaldhar-h-vyas/perl6/ch-1.p6
new file mode 100755
index 0000000000..306ba23ee8
--- /dev/null
+++ b/challenge-007/jaldhar-h-vyas/perl6/ch-1.p6
@@ -0,0 +1,15 @@
+#!/usr/bin/perl6
+
+# Niven numbers are also known as Harshad numbers.  Coincidentally Harshad is
+# my patronym.
+
+# This script is dedicated to the memory of my father Dr. Harshad V. Vyas
+# (1935-2019)
+
+say 0;
+
+for 1 .. 50 -> $number {
+    if $number % $number.comb.sum == 0 {
+        say $number;
+    }
+}
-- 
cgit