diff options
| author | Francis Whittle <FJ.Whittle@gmail.com> | 2019-04-15 22:38:30 +1000 |
|---|---|---|
| committer | Francis Whittle <FJ.Whittle@gmail.com> | 2019-04-15 23:57:24 +1000 |
| commit | 3433662b2e77d72d895a03aaaa34146317b72be5 (patch) | |
| tree | 7a868cc6e88e8e3ebde4b95a3cbc55016c6a8e92 | |
| parent | a1160c7179238737c95fc2dd8fdf72d6c4610b68 (diff) | |
| download | perlweeklychallenge-club-3433662b2e77d72d895a03aaaa34146317b72be5.tar.gz perlweeklychallenge-club-3433662b2e77d72d895a03aaaa34146317b72be5.tar.bz2 perlweeklychallenge-club-3433662b2e77d72d895a03aaaa34146317b72be5.zip | |
Redo challenge 004 part 1 with pi calculation
| -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); |