# Pastebin 29FSK5T5
#!/usr/bin/env raku

my $rounds = 1_000_000;

# Signs alternate: +1, -1, +1, -1...
my @signs = (1, * * -1 ... *)[^$rounds];

# Generate denominators: 1, 3, 5, 7...
my @denoms = (1, 3 ... *)[^$rounds];


# Compute Leibniz series using hypers
my $pi = 4 * [+] (@signs »/« @denoms).hyper;

say $pi;