From 5969f45eb66ad0f0d4b665adbbbaa6e342f42834 Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Sun, 12 Mar 2023 17:12:26 +0100
Subject: Challenge 007 task 1

---
 challenge-007/jo-37/perl/ch-1.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 challenge-007/jo-37/perl/ch-1.pl

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