Arrays aus Datei mit Loops - #164155 (Allgemeines zu Perl)

Raubtier

2012-12-11 22:23

User since
2012-05-04
1075 Artikel
BenutzerIn
[default_avatar]

Nur zur Sicherheit: diese Zeilen von Linuxer solltest du ersetzen:

2012-12-11T18:41:29 Linuxer

Code (perl): (dl )

use List::Util qw( sum );

bzw.

Code (perl): (dl )

1
2

        my $average = sum(@values)/@values;
        print $average, "\n";

durch

Code (perl): (dl )

use Statistics::Descriptive;

und

Code (perl): (dl )

1
2
3

        my $stat = Statistics::Descriptive::Full->new();
        $stat->add_data(@values);
        print "geometric_mean: ", $stat->geometric_mean(), "\n";

Aber das dürfte ja klar sein, geometrisches und arithmetisches Mittel sind ja was anderes :-)