Range consolidation: Difference between revisions
→{{header|Nim}}
mNo edit summary |
|||
Line 1,268:
[[1, 3], [-6, -1], [-4, -5], [8, 2], [-6, -6]] => [[-6.0, -1.0], [1.0, 8.0]]
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
Using the Wolfram Language's built-in Interval operations:
<lang Mathematica>data={{{1.1,2.2}},
{{6.1,7.2},{7.2,8.3}},
{{4,3},{2,1}},
{{4,3},{2,1},{-1,-2},{3.9,10}},
{{1,3},{-6,-1},{-4,-5},{8,2},{-6,-6}}};
Column[IntervalUnion@@@Map[Interval,data,{2}]]</lang>
{{out}}
<pre>Interval[{1.1,2.2}]
Interval[{6.1,8.3}]
Interval[{1,2},{3,4}]
Interval[{-2,-1},{1,2},{3,10}]
Interval[{-6,-1},{1,8}]</pre>
=={{header|Nim}}==
| |||