Anonymous user
Minimal numbers of three lists at same position: Difference between revisions
Minimal numbers of three lists at same position (view source)
Revision as of 22:14, 22 November 2021
, 2 years ago→{{header|Phix}}
Line 7:
<br>list3 = [1,45,78,5,11,95,14,25,9]
<br>Let create minList which contain minimal number of three lists at same position.
=={{header|Perl}}==
<lang perl>#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw( min );
my $list1 = [9,18,27,2,65,43,78,11,2];
my $list2 = [2,27,36,1,14,89,25,9,15];
my $list3 = [1,45,78,5,11,95,14,25,9];
my @minlist = map min($list1->[$_], $list2->[$_], $list3->[$_]), 0 .. $#$list1;
use Data::Dump 'dd'; dd \@minlist;</lang>
{{out}}
<pre>
[1, 18, 27, 1, 11, 43, 14, 9, 2]
</pre>
=={{header|Phix}}==
| |||