perl6 solution for challenge 1

1 files changed, 15 insertions, 0 deletions

diff --git a/challenge-021/randy-lauen/perl6/ch-1.p6 b/challenge-021/randy-lauen/perl6/ch-1.p6
new file mode 100644
index 0000000000..f2e000010f
--- /dev/null
+++ b/challenge-021/randy-lauen/perl6/ch-1.p6
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl6
+
+# Write a script to calculate the value of e, also known as Euler’s number and Napier’s constant.
+
+my $e = 0;
+for ^20 -> $n {
+    $e += 1/factorial($n);
+}
+say "Calculated e = $e";
+say "Perl6 e      = {e}";
+
+sub factorial( Int $n where * >= 0 ) {
+    return 1 if $n == 0;
+    return $n * factorial( $n - 1 );
+}