From 3c3858d642511c633cd970a4fae9c92750d7d8ca Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Mon, 13 Mar 2023 20:32:06 +0100
Subject: Challenge 012 task 1

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

diff --git a/challenge-012/jo-37/perl/ch-1.pl b/challenge-012/jo-37/perl/ch-1.pl
new file mode 100755
index 0000000000..d8eccb06d3
--- /dev/null
+++ b/challenge-012/jo-37/perl/ch-1.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl -s
+
+use v5.16;
+use warnings;
+use bigint;
+use List::Gen;
+use Math::Prime::Util qw(is_prime pn_primorial);
+
+# Build a generator for non-prime Euclid numbers and print the first N
+# thereof (Default: N = 1)
+<1..>->map(sub{pn_primorial($_)+1})->filter(sub{!is_prime($_)})->say(shift||1);
-- 
cgit