diff options
| -rwxr-xr-x | challenge-006/joelle-maslak/perl5/ch-2.pl | 21 | ||||
| -rwxr-xr-x | challenge-006/joelle-maslak/perl6/ch-2.p6 | 17 |
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); + |