Opened by The_Marv at 2010-10-29 15:06
@murphy: Ja, das ist schöner Code.
Wenn man keine Module zulässt und es kompakt sein soll, würde ich u.U. noch sowas machen:
Ist aber ungetestet, weil ich aktuell keinen Perl-Interpreter auf dem System habe.
Last edited: 2010-10-31 14:31:36 +0100 (CET)
Wenn man keine Module zulässt und es kompakt sein soll, würde ich u.U. noch sowas machen:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9
#!/usr/bin/env perl use strict; use warnings; my ($sum, $cnt) = 0; /^\d$/ and ++$cnt and $sum += $_ while (<>); print $sum/$cnt . "\n";
Ist aber ungetestet, weil ich aktuell keinen Perl-Interpreter auf dem System habe.
Last edited: 2010-10-31 14:31:36 +0100 (CET)