Minimum numbers of three lists: Difference between revisions
Added Perl
(Added Algol W) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 148:
[5 22 12 21 38]
</pre>
=={{header|Perl}}==
<lang perl>use strict;
use warnings;
use List::Util 'min';
my @lists = ([5,45,23,21,67], [43,22,78,46,38], [9,98,12,98,53]);
for my $i (0 .. $#{ $lists[0] }) {
print ' ' . min map { $lists[$_][$i] } 0..$#lists;
}</lang>
{{out}}
<pre> 5 22 12 21 38</pre>
=={{header|Raku}}==
| |||