Create ch-1.p6

1 files changed, 16 insertions, 0 deletions

diff --git a/challenge-012/ozzy/perl6/ch-1.p6 b/challenge-012/ozzy/perl6/ch-1.p6
new file mode 100644
index 0000000000..434880b97f
--- /dev/null
+++ b/challenge-012/ozzy/perl6/ch-1.p6
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl6
+
+my @primes = lazy gather {                              # Define a lazy array with prime numbers
+    my $a=0;
+    loop { take $a if (++$a).is-prime };
+}
+
+for 1..100 -> $i {
+    my $Euclid = ([*] @primes[0..($i-1)]) +1;           # Calculate the $i-th Euclid number.
+    say "E_$i = $Euclid";                               # For inspection: show the numbers...
+
+    if ! $Euclid.is-prime {                             # Print number and exit if it is not-prime.
+        say "$Euclid is not prime!";
+        exit;
+    }
+}