two sum

Author: sreenith

src/z_lc_two_sum.prog.abap

@@ -0,0 +1,45 @@
+*&---------------------------------------------------------------------*
+*& Report Z_LC_TWO_SUM
+*&---------------------------------------------------------------------*
+*&
+*&---------------------------------------------------------------------*
+REPORT z_lc_two_sum.
+
+
+TYPES: BEGIN OF ty_hash,
+         key TYPE i,
+*         val TYPE i,
+       END OF ty_hash.
+
+
+DATA: gt_values TYPE STANDARD TABLE OF i,
+      gs_values TYPE i,
+      gt_hash   TYPE HASHED TABLE OF ty_hash WITH UNIQUE KEY key,
+      gs_hash   TYPE ty_hash.
+
+
+DATA(target) = 9.
+
+gt_values = VALUE #( ( 1 ) ( 2 ) ( 3 ) ( 4 ) ( 5 ) ).
+
+LOOP AT gt_values INTO gs_values.
+
+  DATA(complement) = target - gs_values.
+
+  READ TABLE gt_hash INTO gs_hash WITH KEY  key = complement .
+
+  IF sy-subrc NE 0.
+
+    gs_hash-key = gs_values.
+*    gs_hash-val =  sy-tabix.
+
+    INSERT gs_hash INTO TABLE gt_hash.
+  ELSE.
+
+    WRITE:/ gs_values , gs_hash-key.
+    EXIT.
+
+  ENDIF.
+
+
+ENDLOOP.

src/z_lc_two_sum.prog.xml

@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <PROGDIR>
+    <NAME>Z_LC_TWO_SUM</NAME>
+    <SUBC>1</SUBC>
+    <RLOAD>E</RLOAD>
+    <FIXPT>X</FIXPT>
+    <UCCHECK>X</UCCHECK>
+   </PROGDIR>
+   <TPOOL>
+    <item>
+     <ID>R</ID>
+     <ENTRY>Program Z_LC_TWO_SUM</ENTRY>
+     <LENGTH>20</LENGTH>
+    </item>
+   </TPOOL>
+  </asx:values>
+ </asx:abap>
+</abapGit>