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