http://rosalind.info/problems/sexl/

Sample input

0.1 0.5 0.8

Sample output

0.18 0.5 0.32

use v6;



sub MAIN(Str $input = "0.1 0.5 0.8") {
    say "{map { 2*$^x*(1-$x) }, $input.split(' ')».Num».round(0.01)}";
}

# vim: expandtab shiftwidth=4 ft=perl6