性连锁遗传

作者：L. Grondin

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

示例输入

0.1 0.5 0.8

示例输出

0.18 0.5 0.32

源代码： sexl-grondilu.pl

use v6;

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