diff options
| -rw-r--r-- | challenge-041/markus-holzer/perl6/ch-1.pl6 | 2 | ||||
| -rw-r--r-- | challenge-041/markus-holzer/perl6/ch-2.pl6 | 1 |
2 files changed, 3 insertions, 0 deletions
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]; |