Select Code to Download

sub zeta($s) { [\+] map -> \n { 1 / n**$s }, 1..* }
say zeta(2)[1000];

sub infix:<+>(Irrational $x, Irrational $y) {
    Irrational.new: gather while True {
        (state $n)++;
        take $x[$n] + $y[$n];
    }
}

sub infix:<==>(Irrational $x, Irrational $y) {
    while True {
        (state $n)++;
        return $x[$n] == $y[$n];
    }
}

package Real;

# the accuracy number below is only for display.
...
print $e + $one, "\n";
print $e * $e, "\n";
print ($three + $one) * Arctan(1);