From d3f8dcef51c45538e3be8255bd7064fc782cb48c Mon Sep 17 00:00:00 2001 From: Joelle Maslak Date: Mon, 29 Apr 2019 00:06:42 -0600 Subject: Add Perl6 solution to Week 6, Problem 2 --- challenge-006/joelle-maslak/perl6/ch-2.p6 | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100755 challenge-006/joelle-maslak/perl6/ch-2.p6 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..01632f9cc7 --- /dev/null +++ b/challenge-006/joelle-maslak/perl6/ch-2.p6 @@ -0,0 +1,16 @@ +#!/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. ;) +say (640320³ + 744 - 196844.FatRat/(640320³ + 744)).Str.substr(0,34); + -- cgit From f5603bb8366797ae519bb8f1e7a3a4bbb257c15a Mon Sep 17 00:00:00 2001 From: Joelle Maslak Date: Mon, 29 Apr 2019 00:09:57 -0600 Subject: Perl 5 solution to Week 6, Problem 2 --- challenge-006/joelle-maslak/perl5/ch-2.pl | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100755 challenge-006/joelle-maslak/perl5/ch-2.pl 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..7ae8f0c9bc --- /dev/null +++ b/challenge-006/joelle-maslak/perl5/ch-2.pl @@ -0,0 +1,20 @@ +#!/usr/bin/env perl +use v5.26; +use strict; +use warnings; + +use bignum; + +# +# 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. ;) +say substr(640320**3 + 744 - 196844/(640320**3 + 744), 0, 34); + -- cgit From cafb5ec400a92beb13c03ceb88e071b4d1bffdc2 Mon Sep 17 00:00:00 2001 From: Joelle Maslak Date: Mon, 29 Apr 2019 00:11:16 -0600 Subject: Add a bit of comment --- challenge-006/joelle-maslak/perl5/ch-2.pl | 3 ++- challenge-006/joelle-maslak/perl6/ch-2.p6 | 1 + 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/challenge-006/joelle-maslak/perl5/ch-2.pl b/challenge-006/joelle-maslak/perl5/ch-2.pl index 7ae8f0c9bc..b11ad31428 100755 --- a/challenge-006/joelle-maslak/perl5/ch-2.pl +++ b/challenge-006/joelle-maslak/perl5/ch-2.pl @@ -6,7 +6,7 @@ use warnings; use bignum; # -# Copyright © 2019 Joelle Maslak +# Copyright (C) 2019 Joelle Maslak # All Rights Reserved - See License # # I am assuming that we really wanted Ramanujan's Constant, and not the @@ -16,5 +16,6 @@ use bignum; # 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 index 01632f9cc7..da44856b14 100755 --- a/challenge-006/joelle-maslak/perl6/ch-2.p6 +++ b/challenge-006/joelle-maslak/perl6/ch-2.p6 @@ -12,5 +12,6 @@ use v6; # 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); -- cgit