Minimum numbers of three lists: Difference between revisions
Add Red
(Add Factor) |
(Add Red) |
||
Line 86:
<pre>
[5 22 12 21 38]
</pre>
=={{header|Red}}==
<lang rebol>Red [
Red-version: 0.6.4
Description: "Find the element-wise minimum of three lists"
]
numbers1: [5 45 23 21 67]
numbers2: [43 22 78 46 38]
numbers3: [9 98 12 98 53]
length: length? numbers1
result: append/dup [] 0 length
repeat i length [
result/:i: min min numbers1/:i numbers2/:i numbers3/:i
]
print result</lang>
{{out}}
<pre>
5 22 12 21 38
</pre>
| |||