From 34f1f1b033d76b957ddc508fdc480518c31c95d9 Mon Sep 17 00:00:00 2001 From: holli-holzer Date: Mon, 30 Dec 2019 13:59:01 +0100 Subject: Solutions Markus Holzer --- challenge-041/markus-holzer/perl6/ch-1.pl6 | 2 ++ challenge-041/markus-holzer/perl6/ch-2.pl6 | 1 + 2 files changed, 3 insertions(+) create mode 100644 challenge-041/markus-holzer/perl6/ch-1.pl6 create mode 100644 challenge-041/markus-holzer/perl6/ch-2.pl6 diff --git a/challenge-041/markus-holzer/perl6/ch-1.pl6 b/challenge-041/markus-holzer/perl6/ch-1.pl6 new file mode 100644 index 0000000000..ab0a5739b9 --- /dev/null +++ b/challenge-041/markus-holzer/perl6/ch-1.pl6 @@ -0,0 +1,2 @@ +use Prime::Factor; +.say for (2..50).grep( -> $n { is-prime prime-factors( $n ).elems }); \ No newline at end of file diff --git a/challenge-041/markus-holzer/perl6/ch-2.pl6 b/challenge-041/markus-holzer/perl6/ch-2.pl6 new file mode 100644 index 0000000000..377434d950 --- /dev/null +++ b/challenge-041/markus-holzer/perl6/ch-2.pl6 @@ -0,0 +1 @@ +.say for (1, 1, * + * + 1 ... *)[^20]; -- cgit