Statistics/Basic: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: arguably simpler version) |
m (→{{header|Perl 6}}: removing useless variable + less output) |
||
Line 1,202: | Line 1,202: | ||
printf "mean: %f\n", my $mean = $N R/ [+] @data; |
printf "mean: %f\n", my $mean = $N R/ [+] @data; |
||
printf "stddev: %f\n", sqrt |
printf "stddev: %f\n", sqrt |
||
$mean**2 R- $N R/ [+] @data »**» 2; |
|||
for sort *.key, @data.classify( (10 * *).Int / 10 ) { |
for sort *.key, @data.classify( (10 * *).Int / 10 ) { |
||
printf "%.1f %s\n", .key, '=' x (500 * .value.elems / $N); |
printf "%.1f %s\n", .key, '=' x (500 * .value.elems / $N); |
||
Line 1,249: | Line 1,249: | ||
0.7 =================================================== |
0.7 =================================================== |
||
0.8 ==================================================== |
0.8 ==================================================== |
||
0.9 ================================================== |
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}}== |
=={{header|PicoLisp}}== |