diff options
| -rw-r--r-- | challenge-004/fjwhittle/perl6/ch-1--first.p6 | 1 | ||||
| -rw-r--r-- | challenge-004/fjwhittle/perl6/ch-1.p6 | 9 |
2 files changed, 9 insertions, 1 deletions
diff --git a/challenge-004/fjwhittle/perl6/ch-1--first.p6 b/challenge-004/fjwhittle/perl6/ch-1--first.p6 new file mode 100644 index 0000000000..7d60b2b87e --- /dev/null +++ b/challenge-004/fjwhittle/perl6/ch-1--first.p6 @@ -0,0 +1 @@ +printf "%.16f",pi
\ No newline at end of file diff --git a/challenge-004/fjwhittle/perl6/ch-1.p6 b/challenge-004/fjwhittle/perl6/ch-1.p6 index 7d60b2b87e..3ae01ddb41 100644 --- a/challenge-004/fjwhittle/perl6/ch-1.p6 +++ b/challenge-004/fjwhittle/perl6/ch-1.p6 @@ -1 +1,8 @@ -printf "%.16f",pi
\ No newline at end of file +my $eu-seq = gather { + take 1; + for 1..* -> $n { take $eu-seq[$n - 1] * FatRat.new($n, 2 * $n + 1) } +} + +my \π := 2 * [+] $eu-seq[^608]; + +put π.Str.substr: ^($?FILE.IO.s+1); |