RosettaCodeData/Task/Averages-Mode/Perl/averages-mode-2.pl
2023-07-01 13:44:08 -04:00

4 lines
127 B
Perl

print "$_ " foreach mode(1, 3, 6, 6, 6, 6, 7, 7, 12, 12, 17);
print "\n";
print "$_ " foreach mode(1, 1, 2, 4, 4);
print "\n";