Merge pull request #523 from threadless-screw/ozzy-wk21

wk21ch1p6

1 files changed, 20 insertions, 0 deletions

diff --git a/challenge-021/ozzy/perl6/ch-1.p6 b/challenge-021/ozzy/perl6/ch-1.p6
new file mode 100644
index 0000000000..f5a904e759
--- /dev/null
+++ b/challenge-021/ozzy/perl6/ch-1.p6
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl6
+# A script to calculate the value of e, also known as Euler’s number
+
+my $p = 10 ** -100;         # Precision p
+
+my $n = 1;                  # Dummy     n
+my $l = 0;                  # Last sum  l
+my $s = 1.FatRat;           # Sum       s
+my $f = 1.FatRat;           # Factorial f
+
+
+while abs($l-$s) > $p {
+
+    $l=$s;
+
+    $f*=$n++;
+    $s+=(1/$f);
+}
+
+say "Eulers's number: $s";