Statistics/Normal distribution: Difference between revisions

Content added Content deleted
m (→‎{{header|REXX}}: changed comments and whitespace, optimized some computations.)
m (→‎{{header|Perl 6}}: Tau is a built-in these days)
Line 1,916: Line 1,916:


=={{header|Perl 6}}==
=={{header|Perl 6}}==
{{works with|Rakudo|2018.03}}
<lang perl6>constant τ = 2 * pi;
<lang perl6>sub normdist ($m, $σ) {

sub normdist ($m, $σ) {
my $r = sqrt -2 * log rand;
my $r = sqrt -2 * log rand;
my $Θ = τ * rand;
my $Θ = τ * rand;