Minimum numbers of three lists: Difference between revisions
m
→{{header|Wren}}: Changed to Wren S/H
No edit summary |
m (→{{header|Wren}}: Changed to Wren S/H) |
||
| (2 intermediate revisions by 2 users not shown) | |||
Line 181:
5 22 12 21 38
</pre>
=={{header|BASIC}}==
==={{header|Applesoft BASIC}}===
{{works with|Chipmunk Basic}}
<syntaxhighlight lang="qbasic">100 DIM n1(5)
110 n1(1) = 5 : n1(2) = 45 : n1(3) = 23 : n1(4) = 21 : n1(5) = 67
120 DIM n2(5)
130 n2(1) = 43 : n2(2) = 22 : n2(3) = 78 : n2(4) = 46 : n2(5) = 38
140 DIM n3(5)
150 n3(1) = 9 : n3(2) = 98 : n3(3) = 12 : n3(4) = 98 : n3(5) = 53
160 FOR i = 1 TO 5
170 LET a = n2(i)
180 LET b = n3(i)
190 GOSUB 260
200 LET a = n1(i)
210 LET b = m
220 GOSUB 260
230 PRINT m
240 NEXT i
250 END
260 rem FUNCTION min(a, b)
270 IF a < b THEN LET m = a
280 IF a >= b THEN LET m = b
290 RETURN</syntaxhighlight>
{{out}}
<pre>5
22
12
21
38</pre>
==={{header|BASIC256}}===
<syntaxhighlight lang="vb">dim numbers1 = {5, 45, 23, 21, 67}
dim numbers2 = {43, 22, 78, 46, 38}
dim numbers3 = {9, 98, 12, 98, 53}
for i = 0 to 4
print min(numbers1[i], min(numbers2[i], numbers3[i]))
next i
end
function min(a, b)
if a < b then return a else return b
end function</syntaxhighlight>
{{out}}
<pre>5
22
12
21
38</pre>
==={{header|Chipmunk Basic}}===
{{works with|Chipmunk Basic|3.6.4}}
<syntaxhighlight lang="qbasic">100 dim n1(5)
110 n1(1) = 5 : n1(2) = 45 : n1(3) = 23 : n1(4) = 21 : n1(5) = 67
120 dim n2(5)
130 n2(1) = 43 : n2(2) = 22 : n2(3) = 78 : n2(4) = 46 : n2(5) = 38
140 dim n3(5)
150 n3(1) = 9 : n3(2) = 98 : n3(3) = 12 : n3(4) = 98 : n3(5) = 53
160 for i = 1 to 5
170 print min(n1(i),min(n2(i),n3(i)))
180 next i
190 end
200 sub min(a,b)
210 if a < b then min = a else min = b
220 end sub</syntaxhighlight>
{{out}}
<pre>5
22
12
21
38</pre>
==={{header|GW-BASIC}}===
{{works with|PC-BASIC|any}}
{{works with|MSX BASIC|any}}
<syntaxhighlight lang="qbasic">100 DIM N1
110 N1(1) = 5
120 N1(2) = 45
130 N1(3) = 23
140 N1(4) = 21
150 N1(5) = 67
160 DIM N2
170 N2(1) = 43
180 N2(2) = 22
190 N2(3) = 78
200 N2(4) = 46
210 N2(5) = 38
220 DIM N3
230 N3(1) = 9
240 N3(2) = 98
250 N3(3) = 12
260 N3(4) = 98
270 N3(5) = 53
280 FOR I = 1 TO 5
290 A = N2(I)
300 B = N3(I)
310 GOSUB 380
320 A = N1(I)
330 B = M
340 GOSUB 380
350 PRINT M
360 NEXT I
370 END
380 REM FUNCTION min(a, b)
390 IF A < B THEN M = A ELSE M = B
400 RETURN</syntaxhighlight>
{{out}}
<pre>5
22
12
21
38</pre>
==={{header|Minimal BASIC}}===
<syntaxhighlight lang="qbasic">100 DIM X(5)
110 LET X(1) = 5
120 LET X(2) = 45
130 LET X(3) = 23
140 LET X(4) = 21
150 LET X(5) = 67
160 DIM Y(5)
170 LET Y(1) = 43
180 LET Y(2) = 22
190 LET Y(3) = 78
200 LET Y(4) = 46
210 LET Y(5) = 38
220 DIM Z(5)
230 LET Z(1) = 9
240 LET Z(2) = 98
250 LET Z(3) = 12
260 LET Z(4) = 98
270 LET Z(5) = 53
280 FOR I = 1 TO 5
290 LET A = Y(I)
300 LET B = Z(I)
310 GOSUB 380
320 LET A = X(I)
330 LET B = M
340 GOSUB 380
350 PRINT M
360 NEXT I
370 STOP
380 REM FUNCTION MIN(A, B)
390 IF A < B THEN 420
410 LET M = B
415 RETURN
420 LET M = A
430 RETURN
440 END</syntaxhighlight>
{{out}}
<pre>5
22
12
21
38</pre>
==={{header|MSX Basic}}===
{{works with|MSX BASIC|any}}
The [[#GW-BASIC|GW-BASIC]] solution works without any changes.
==={{header|PureBasic}}===
<syntaxhighlight lang="purebasic">OpenConsole()
Procedure.i min(a, b)
If a < b
Result = a
Else
Result = b
EndIf
ProcedureReturn result
EndProcedure
Dim n1.i(5)
n1(1) = 5 : n1(2) = 45 : n1(3) = 23 : n1(4) = 21 : n1(5) = 67
Dim n2.i(5)
n2(1) = 43 : n2(2) = 22 : n2(3) = 78 : n2(4) = 46 : n2(5) = 38
Dim n3.i(5)
n3(1) = 9 : n3(2) = 98 : n3(3) = 12 : n3(4) = 98 : n3(5) = 53
For i.i = 1 To 5
PrintN(Str(min(n1(i), min(n2(i), n3(i)))))
Next i
PrintN(#CRLF$ + "--- Press ENTER to exit ---"): Input()
CloseConsole()</syntaxhighlight>
{{out}}
<pre>5
22
12
21
38</pre>
==={{header|QBasic}}===
{{works with|QBasic|1.1}}
{{works with|QuickBasic|4.5}}
<syntaxhighlight lang="qbasic">FUNCTION min (a, b)
IF a < b THEN min = a ELSE min = b
END FUNCTION
DIM numbers(1 To 3, 1 To 5) = {{5,45,23,21,67},{43,22,78,46,38},{9,98,12,98,53}}
FOR i = 1 TO 5
PRINT min(numbers(1, i), min(numbers(2, i), numbers(3, i)))
NEXT i
END</syntaxhighlight>
{{out}}
<pre>5
22
12
21
38</pre>
==={{header|Quite BASIC}}===
<syntaxhighlight lang="qbasic">100 ARRAY n1
110 LET n1(1) = 5
120 LET n1(2) = 45
130 LET n1(3) = 23
140 LET n1(4) = 21
150 LET n1(5) = 67
160 ARRAY n2
170 LET n2(1) = 43
180 LET n2(2) = 22
190 LET n2(3) = 78
200 LET n2(4) = 46
210 LET n2(5) = 38
220 ARRAY n3
230 LET n3(1) = 9
240 LET n3(2) = 98
250 LET n3(3) = 12
260 LET n3(4) = 98
270 LET n3(5) = 53
280 FOR i = 1 TO 5
290 LET a = n2(i)
300 LET b = n3(i)
310 GOSUB 380
320 LET a = n1(i)
330 LET b = m
340 GOSUB 380
350 PRINT m
360 NEXT i
370 END
380 rem FUNCTION min(a, b)
390 IF a < b THEN LET m = a
400 IF a >= b THEN LET m = b
410 RETURN</syntaxhighlight>
{{out}}
<pre>5
22
12
21
38</pre>
==={{header|Run BASIC}}===
{{works with|Just BASIC}}
{{works with|Liberty BASIC}}
The [[#Yabasic|Yabasic]] solution works without any changes.
==={{header|True BASIC}}===
<syntaxhighlight lang="qbasic">FUNCTION min(a, b)
IF a < b then LET min = a else LET min = b
END FUNCTION
DIM n1(5)
LET n1(1) = 5
LET n1(2) = 45
LET n1(3) = 23
LET n1(4) = 21
LET n1(5) = 67
DIM n2(5)
LET n2(1) = 43
LET n2(2) = 22
LET n2(3) = 78
LET n2(4) = 46
LET n2(5) = 38
DIM n3(5)
LET n3(1) = 9
LET n3(2) = 98
LET n3(3) = 12
LET n3(4) = 98
LET n3(5) = 53
FOR i = 1 to 5
PRINT min(n1(i), min(n2(i), n3(i)))
NEXT i
END</syntaxhighlight>
{{out}}
<pre>5
22
12
21
38</pre>
==={{header|XBasic}}===
{{works with|Windows XBasic}}
<syntaxhighlight lang="qbasic">PROGRAM "Minimum numbers of three lists"
VERSION "0.0000"
DECLARE FUNCTION Entry ()
DECLARE FUNCTION min(a, b)
FUNCTION Entry ()
DIM n1[5]
n1[1] = 5: n1[2] = 45 : n1[3] = 23 : n1[4] = 21 : n1[5] = 67
DIM n2[5]
n2[1] = 43 : n2[2] = 22 : n2[3] = 78 : n2[4] = 46 : n2[5] = 38
DIM n3[5]
n3[1] = 9 : n3[2] = 98 : n3[3] = 12 : n3[4] = 98 : n3[5] = 53
FOR i = 1 TO 5
PRINT min(n1[i], min(n2[i], n3[i]))
NEXT i
END FUNCTION
FUNCTION min (a, b)
IF a < b THEN RETURN a ELSE RETURN b
END FUNCTION
END PROGRAM</syntaxhighlight>
{{out}}
<pre>5
22
12
21
38</pre>
==={{header|Yabasic}}===
====With one-dimensional arrays====
{{works with|Run BASIC}}
{{works with|Just BASIC}}
{{works with|Liberty BASIC}}
<syntaxhighlight lang="vb">dim n1(5)
n1(1) = 5 : n1(2) = 45 : n1(3) = 23 : n1(4) = 21 : n1(5) = 67
dim n2(5)
n2(1) = 43 : n2(2) = 22 : n2(3) = 78 : n2(4) = 46 : n2(5) = 38
dim n3(5)
n3(1) = 9 : n3(2) = 98 : n3(3) = 12 : n3(4) = 98 : n3(5) = 53
for i = 1 to 5
print min(n1(i), min(n2(i), n3(i)))
next i
end</syntaxhighlight>
{{out}}
<pre>5
22
12
21
38</pre>
====With multidimensional arrays====
<syntaxhighlight lang="vb">dim n(3, 5)
n(1, 1) = 5 : n(1, 2) = 45 : n(1, 3) = 23 : n(1, 4) = 21 : n(1, 5) = 67
n(2, 1) = 43 : n(2, 2) = 22 : n(2, 3) = 78 : n(2, 4) = 46 : n(2, 5) = 38
n(3, 1) = 9 : n(3, 2) = 98 : n(3, 3) = 12 : n(3, 4) = 98 : n(3, 5) = 53
for i = 1 to 5
print min(n(1, i), min(n(2, i), n(3, i)))
next i
end</syntaxhighlight>
{{out}}
<pre>5
22
12
21
38</pre>
=={{header|C}}==
Line 369 ⟶ 734:
{{Out}}
<pre>[5,22,12,21,38]</pre>
=={{header|J}}==
<syntaxhighlight lang="j"> ] numbers =. 3 5 $ 5 45 23 21 67 43 22 78 46 38 9 98 12 54 53
5 45 23 21 67
43 22 78 46 38
9 98 12 54 53
<./ numbers
5 22 12 21 38</syntaxhighlight>
=={{header|JavaScript}}==
Line 784 ⟶ 1,158:
=={{header|Wren}}==
<syntaxhighlight lang="
var numbers2 = [43, 22, 78, 46, 38]
var numbers3 = [ 9, 98, 12, 98, 53]
| |||