Merge pull request #139 from jaldhar/challenge-007

Challenge 7 problem 1 by Jaldhar H. Vyas

2 files changed, 39 insertions, 0 deletions

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;
+    }
+}