bubble sort

Author: sreenith

src/z_lc_bubble_sort.prog.abap

@@ -0,0 +1,36 @@
+*&---------------------------------------------------------------------*
+*& Report Z_LC_BUBBLE_SORT
+*&---------------------------------------------------------------------*
+*&
+*&---------------------------------------------------------------------*
+REPORT z_lc_bubble_sort.
+
+
+TYPES: tt_input TYPE STANDARD TABLE OF i WITH EMPTY KEY .
+
+DATA: lt_input TYPE tt_input.
+
+lt_input = VALUE #( ( 2 ) ( 6 ) ( 4 ) ( 1 ) ( 7 ) ) .
+
+
+DATA(lines) = lines( lt_input ).
+
+
+DO lines TIMES.
+  DO lines - 1  TIMES.
+
+    IF lt_input[ sy-index ] > lt_input[ sy-index + 1 ] .
+
+      DATA(temp) = lt_input[ sy-index ].
+      lt_input[ sy-index ] = lt_input[ sy-index + 1 ].
+      lt_input[ sy-index + 1 ] = temp.
+
+    ENDIF.
+
+  ENDDO.
+ENDDO.
+
+
+LOOP AT lt_input ASSIGNING FIELD-SYMBOL(<lfs_input>).
+  WRITE: / <lfs_input>.
+ENDLOOP.

src/z_lc_bubble_sort.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_BUBBLE_SORT</NAME>
+    <SUBC>1</SUBC>
+    <RLOAD>E</RLOAD>
+    <FIXPT>X</FIXPT>
+    <UCCHECK>X</UCCHECK>
+   </PROGDIR>
+   <TPOOL>
+    <item>
+     <ID>R</ID>
+     <ENTRY>Program Z_LC_BUBBLE_SORT</ENTRY>
+     <LENGTH>24</LENGTH>
+    </item>
+   </TPOOL>
+  </asx:values>
+ </asx:abap>
+</abapGit>

src/z_lc_merge_sort.prog.abap

@@ -48,7 +48,6 @@ FORM mergesort  TABLES  lt_array TYPE STANDARD TABLE .
   CHECK len_array > 1.
 
   DATA(mid_array) = len_array DIV 2.
-*  mid_array = mid_array + 1.
 
   IF lt_array[] IS NOT INITIAL.