Minimum numbers of three lists: Difference between revisions

{{trans|Python}}

V numbers2 = [43, 22, 78, 46, 38]

V numbers3 = [9, 98, 12, 98, 53]

V numbers = (0 .< numbers1.len).map(i -> min(:numbers1[i], :numbers2[i], :numbers3[i]))

{{out}}

=={{header|Ada}}==

procedure Minimum_Three_Lists is

end loop;

New_Line;

{{out}}

<pre> 5 22 12 21 38</pre>

Generallising a little...

{{libheader|ALGOL 68-rows}}

# lists are represented by arrays in this sample #

PR read "rows.incl.a68" PR # row-related utilities #

# display the minimum values for each element in the lists #

SHOW min( ( numbers1, numbers2, numbers3 ) )

{{out}}

<pre>

=={{header|ALGOL W}}==

integer array numbers1, numbers2, numbers3 ( 1 :: 5 );

integer pos;

writeon( i_w := 1, s_w := 0, " ", m )

end for_i;

{{out}}

<pre>

=={{header|AutoHotkey}}==

Numbers2 := [43,22,78,46,38]

Numbers3 := [9,98,12,98,53]

for i, v in Numbers

result .= v ", "

{{out}}

<pre>[5, 22, 12, 21, 38]</pre>

=={{header|AWK}}==

# syntax: GAWK -f MINIMUM_NUMBERS_OF_THREE_LISTS.AWK

BEGIN {

}

function min(x,y) { return((x < y) ? x : y) }

{{out}}

<pre>

=={{header|C}}==

int min(int a, int b) {

printf("\n");

return 0;

{{out}}

=={{header|F_Sharp|F#}}==

// Minimum numbers of three lists. Nigel Galloway: October 26th., 2021

let N1,N2,N3=[5;45;23;21;67],[43;22;78;46;38],[9;98;12;98;53]

printfn "%A" (List.zip3 N1 N2 N3|>List.map(fun(n,g,l)->min (min n g) l))

{{out}}

<pre>

=={{header|Factor}}==

{{works with|Factor|0.99 2021-06-02}}

{ 5 45 23 21 67 } { 43 22 78 46 38 } { 9 98 12 98 53 }

{{out}}

<pre>

=={{header|Fermat}}==

[numbers2] := [(43,22,78,46,38)];

[numbers3] := [(9,98,12,98,53)];

Return(c[n]).;

{{out}}<pre>

=={{header|FreeBASIC}}==

dim as integer numbers(1 to 3, 1 to 5) = _

for i as uinteger = 1 to 5

print min( numbers(1, i), min(numbers(2,i), numbers(3, i) ) )

{{out}}<pre>

=={{header|Go}}==

{{libheader|Go-rcu}}

import (

}

fmt.Println(numbers)

{{out}}

=={{header|Haskell}}==

numbers1, numbers2, numbers3 :: [Integer]

minimum

<$> transpose

{{Out}}

<pre>[5,22,12,21,38]</pre>

=={{header|JavaScript}}==

"use strict";

// MAIN ---

return JSON.stringify(main());

{{Out}}

<pre>[5,22,12,21,38]</pre>

{{works with|jq}}

'''Works with gojq, the Go implementation of jq'''

def numbers2: [43, 22, 78, 46, 38];

'''Mirroring the requirements'''

'''Functional solution'''

| transpose

{{out}}

<pre>

=={{header|Julia}}==

Computed in the REPL, using matrix functions.

julia> Numbers1 = [5,45,23,21,67]

5-element Vector{Int64}:

21

38

=={{header|Mathematica}} / {{header|Wolfram Language}}==

{{out}}<pre>

=={{header|Nim}}==

Numbers1 = [ 5, 45, 23, 21, 67]

Numbers2 = [43, 22, 78, 46, 38]

numbers[i] = min(min(Numbers1[i], Numbers2[i]), Numbers3[i])

{{out}}

=={{header|ooRexx}}==

l.1=.array~of( 5, 45, 23, 21, 67)

l.2=.array~of(43, 22, 78, 46, 38)

o=o min(l.1[i],l.2[i],l.3[i])

End

{{out}}

<pre>[5 22 12 21 38]</pre>

=={{header|Perl}}==

use warnings;

use List::Util 'min';

for my $i (0 .. $#{ $lists[0] }) {

print ' ' . min map { $lists[$_][$i] } 0..$#lists;

{{out}}

<pre> 5 22 12 21 38</pre>

=={{header|Phix}}==

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #008080;">constant</span> <span style="color: #000000;">N123</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{{</span> <span style="color: #000000;">5</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">45</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">23</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">21</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">67</span><span style="color: #0000FF;">},</span>

<span style="color: #0000FF;">{</span> <span style="color: #000000;">9</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">98</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">12</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">98</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">53</span><span style="color: #0000FF;">}}</span>

<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%V\n"</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">apply</span><span style="color: #0000FF;">(</span><span style="color: #004600;">true</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">vslice</span><span style="color: #0000FF;">,{{</span><span style="color: #000000;">N123</span><span style="color: #0000FF;">},</span><span style="color: #7060A8;">tagset</span><span style="color: #0000FF;">(</span><span style="color: #000000;">5</span><span style="color: #0000FF;">)}),</span><span style="color: #7060A8;">minsq</span><span style="color: #0000FF;">)})</span>

{{out}}

<pre>

=={{header|Plain English}}==

Start up.

Create a first list and a second list and a third list.

If the entry's next is not nil, write ", " on the console without advancing.

Put the entry's next into the entry.

{{out}}

<pre>

=={{header|Python}}==

numbers2 = [43,22,78,46,38]

numbers3 = [9,98,12,98,53]

numbers = [min(numbers1[i],numbers2[i],numbers3[i]) for i in range(0,len(numbers1))]

{{Output}}

<pre>[5, 22, 12, 21, 38]</pre>

Or, in terms of zip:

numbers1 = [5, 45, 23, 21, 67]

min(x) for x

in zip(*[numbers1, numbers2, numbers3])

{{Out}}

<pre>[5, 22, 12, 21, 38]</pre>

=={{header|Raku}}==

{{out}}

<pre>(5 22 12 21 38)</pre>

=={{header|Red}}==

Red-version: 0.6.4

Description: "Find the element-wise minimum of three lists"

result/:i: min min numbers1/:i numbers2/:i numbers3/:i

]

{{out}}

<pre>

=={{header|REXX}}==

w= 5 45 23 21 67 43 22 78 46 38 9 98 12 98 53

Do i=1 To 3

o=o min(l.1.j,l.2.j,l.3.j)

End

{{out}}

<pre>5 22 12 21 38</pre>

=={{header|Ring}}==

Num1 = [ 5,45,23,21,67]

rv = ar[1]

for n = 2 to len(ar) rv += "," + ar[n] next

{{out}}

<pre>

=={{header|Ruby}}==

numbers2 = [43, 22, 78, 46, 38]

numbers3 = [ 9, 98, 12, 98, 53]

{{out}}

<pre>[5, 22, 12, 21, 38]

=={{header|Sidef}}==

[ 5, 45, 23, 21, 67],

[43, 22, 78, 46, 38],

]

{{out}}

=={{header|Vlang}}==

fn main() {

numbers1 := [5, 45, 23, 21, 67]!

}

println(numbers)

{{out}}

<pre>[5, 22, 12, 21, 38]</pre>

=={{header|Wren}}==

var numbers2 = [43, 22, 78, 46, 38]

var numbers3 = [ 9, 98, 12, 98, 53]

var numbers = List.filled(5, 0)

for (n in 0..4) numbers[n] = numbers1[n].min(numbers2[n]).min(numbers3[n])

{{out}}

=={{header|XPL0}}==

int A, B;

return if A<B then A else B;

ChOut(0, ^ );

];

{{out}}