|
printf "mean: %f\n", my $mean = $N R/ [+] @data;
printf "stddev: %f\n", sqrt
my $variance = $mean**2 R- $N R/ [+] @data »**» 2;
for sort *.key, @data.classify( (10 * *).Int / 10 ) {
printf "%.1f %s\n", .key, '=' x (500 * .value.elems / $N);
0.7 ===================================================
0.8 ====================================================
0.9 ==================================================</pre>
size: 100000
mean: 0.50030554161684448
stddev: 0.28825035821818784
0.0 =================================================
0.1 ==================================================
0.2 =================================================
0.3 =================================================
0.4 ==================================================
0.5 ==================================================
0.6 ==================================================
0.7 ==================================================
0.8 =================================================
0.9 =================================================
(elapsed: 4.7263731956481934)
size: 1000000
mean: 0.49960329115026614
stddev: 0.28855491011720108
0.0 ==================================================
0.1 =================================================
0.2 ==================================================
0.3 ==================================================
0.4 ==================================================
0.5 =================================================
0.6 ==================================================
0.7 =================================================
0.8 =================================================
0.9 =================================================
(elapsed: 47.345431089401245)</pre>
=={{header|PicoLisp}}==
| 