Challenge 007 task 1

1 files changed, 26 insertions, 0 deletions

diff --git a/challenge-007/jo-37/perl/ch-1.pl b/challenge-007/jo-37/perl/ch-1.pl
new file mode 100755
index 0000000000..7667e5f174
--- /dev/null
+++ b/challenge-007/jo-37/perl/ch-1.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -s
+
+use v5.16;
+use warnings;
+use Math::Prime::Util qw(vecsum todigits);
+
+our $base;
+$base ||= 10;
+
+die <<EOS unless @ARGV;
+usage: $0 [-base=B] N
+
+-base=B
+    find Niven numbers in base B
+
+N
+    find Niven numbers up to N
+
+EOS
+
+
+# Implementation
+
+for (1 .. shift) {
+    say unless $_ % vecsum todigits $_, $base;
+}