gistfile1.txt

sub sine-power($x) { 
    my $sign = 1;
    my $x-part = $x;
    my $denom = 1;
    gather for 3, 5 ... * -> $n {
        take $sign * $x-part / $denom;
        $sign *= -1;
        $x-part *= $x * $x;
        $denom *= $n * ($n - 1);
    } 
} 

say sine-power(0.1).munch(4).perl;
say ([+] sine-power(0.1).munch(3)).perl;
say [+] sine-power(0.1).munch(3);
say sin(0.1);