Anonymous user
Two sum: Difference between revisions
→{{header|Mathematica}} / {{header|Wolfram Language}}
Line 1,443:
</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>
Block[{indices = Subsets[Range@Length@data, {2}]},
Cases[indices, _?(Total@data[[#]] == sum &)]]
Line 1,451:
{{out}}<pre>
2 4
Note, indexing in Mathematica starts at 1
</pre>
| |||