Two sum: Difference between revisions
no edit summary
(Added Wren) |
MaiconSoft (talk | contribs) No edit summary |
||
Line 490:
</lang>
=={{header|Delphi}}==
{{libheader| System.SysUtils}}
{{libheader| System.Generics.Collections}}
{{Trans|Python}}
<lang Delphi>
program Two_Sum;
{$APPTYPE CONSOLE}
uses
System.SysUtils,
System.Generics.Collections;
function TwoSum(arr: TArray<Integer>; num: Integer; var i, j: integer): boolean;
begin
TArray.Sort<Integer>(arr);
i := 0;
j := Length(arr) - 1;
while i < j do
begin
if arr[i] + arr[j] = num then
exit(True);
if arr[i] + arr[j] < num then
inc(i)
else
Dec(j);
end;
Result := false;
end;
var
i, j: Integer;
begin
if TwoSum([0, 2, 11, 19, 90], 21, i, j) then
Writeln('(', i, ',', j, ')');
if TwoSum([0, 2, 11, 19, 90], 25, i, j) then
Writeln('(', i, ',', j, ')');
Readln;
end.</lang>
{{out}}
<pre>
(1,3)
</pre>
=={{header|Elixir}}==
<lang elixir>defmodule RC do
| |||