Merge pull request #106 from jmaslak/jmaslak-week6-2

Jmaslak week 6, problem 2

2 files changed, 38 insertions, 0 deletions

diff --git a/challenge-006/joelle-maslak/perl5/ch-2.pl b/challenge-006/joelle-maslak/perl5/ch-2.pl
new file mode 100755
index 0000000000..b11ad31428
--- /dev/null
+++ b/challenge-006/joelle-maslak/perl5/ch-2.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+use v5.26;
+use strict;
+use warnings;
+
+use bignum;
+
+#
+# Copyright (C) 2019 Joelle Maslak
+# All Rights Reserved - See License
+#
+# I am assuming that we really wanted Ramanujan's Constant, and not the
+# linked to Wiki page on the Landau-Ramanujan Constant which is
+# something else entirely!
+#
+# Checked against http://oeis.org/A060295
+
+# We'll give *33* digits of precison, not 32.  ;)
+# Formula is from the Wiki page.  :)  It's accurate to 33 digits.
+say substr(640320**3 + 744 - 196844/(640320**3 + 744), 0, 34);
+
diff --git a/challenge-006/joelle-maslak/perl6/ch-2.p6 b/challenge-006/joelle-maslak/perl6/ch-2.p6
new file mode 100755
index 0000000000..da44856b14
--- /dev/null
+++ b/challenge-006/joelle-maslak/perl6/ch-2.p6
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl6
+use v6;
+
+#
+# Copyright © 2019 Joelle Maslak
+# All Rights Reserved - See License
+#
+# I am assuming that we really wanted Ramanujan's Constant, and not the
+# linked to Wiki page on the Landau-Ramanujan Constant which is
+# something else entirely!
+#
+# Checked against http://oeis.org/A060295
+
+# We'll give *33* digits of precison, not 32.  ;)
+# Formula is from the Wiki page.  :)  It's accurate to 33 digits.
+say (640320³ + 744 - 196844.FatRat/(640320³ + 744)).Str.substr(0,34);
+