Revision as of 09:41, 14 February 2019 view source Eoraptor (talk \| contribs) 1,336 edits m →‎{{header\|SAS}}: +output ← Older edit		Revision as of 03:30, 17 May 2019 view source SqrtNegInf (talk \| contribs) 2,392 edits m →‎{{header\|Perl 6}}: enclosing elements eliminated Newer edit →
Line 3,964: =={{header\|Perl 6}}== {{works with\|Rakudo\|~~2017~~2019.1003.1}} <lang perl6>########################### Helper subs ########################### Line 4,027: my @U = z - $i ^..^ z; # upper indices my $q = @s[@U]»[0].map( { $_ * $i / (2 + $++) } ).min; @q[@L] = @s[@L]»[0].map: { [min] $_ * $i, $q, @s[-1][0] }; @pa = ^z .map: { [max] @pa[$_], @q[$_] } } @pa[@s[;1].map( {[$_, $++]} ).sort( *.[0] )»[1]]

P-value correction: Difference between revisions