Rosetta Code

Minimum numbers of three lists: Difference between revisions

Page Discussion

Minimum numbers of three lists (view source)

Revision as of 02:05, 29 October 2021

190 bytes removed ,  2 years ago
m
→‎{{header|Ring}}: streamlined
No edit summary
m (→‎{{header|Ring}}: streamlined)
Line 233:
 
=={{header|Ring}}==
<lang ring>see "? "working..."
see "working..." + nl
 
Num1 = [ 5,45,23,21,67]
Numbers = []
Numbers1Num2 = [543,4522,2378,2146,6738]
Numbers2Num3 = [43 9,2298,7812,4698,3853]
n = len(Num1)
Numbers3 = [9,98,12,98,53]
Nums = list(n)
 
for n = 1 to len(Numbers1)
for i = 1 Temp =to []n
Nums[i] = string(min([Num1[i], Num2[i], Num3[i]]))
add(Temp,Numbers1[n])
add(Temp,Numbers2[n])
add(Temp,Numbers3[n])
min = min(Temp)
add(Numbers,min)
next
 
see? "The minimum numbers of three lists = " + fmtArray(Nums)
see nl +put "done..." + nl▼
see showArray(Numbers)
▲see nl + "done..." + nl
 
func showArrayfmtArray(arrayar)
txtrv = ""ar[1]
for n = 2 to len(ar) rv += "," + ar[n] next
see "["
return for"[" n+ =rv 1+ to len(array)"]"</lang>
txt = txt + array[n] + ","
next
txt = left(txt,len(txt)-1)
txt = txt + "]"
see txt
</lang>
{{out}}
<pre>
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/316734"