Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Averages-Arithmetic-mean/Perl/averages-arithmetic-mean.pl
+++ b/Task/Averages-Arithmetic-mean/Perl/averages-arithmetic-mean.pl
@ -0,0 +1,8 @@
+sub avg {
+  @_ or return 0;
+  my $sum = 0;
+  $sum += $_ foreach @_;
+  return $sum/@_;
+}
+
+print avg(qw(3 1 4 1 5 9)), "\n";