Add tim-smith/perl6/ch-2.p6

1 files changed, 12 insertions, 0 deletions

diff --git a/challenge-006/tim-smith/perl6/ch-2.p6 b/challenge-006/tim-smith/perl6/ch-2.p6
new file mode 100755
index 0000000000..73a74698c2
--- /dev/null
+++ b/challenge-006/tim-smith/perl6/ch-2.p6
@@ -0,0 +1,12 @@
+#! /usr/bin/env perl6
+
+# https://en.wikipedia.org/wiki/Heegner_number#Almost_integers_and_Ramanujan's_constant
+
+# Ramanujan's constant is _almost_ this integer ...
+my $r = 640_320 ** 3 + 744;
+
+# But is off by an error which is defined in terms of the constant itself,
+# so this approximation is close enough for at least 32 significant digits.
+$r += FatRat.new: -196_844, $r;
+
+put substr($r, 0, 33);