ABAP 自定义排序的思想（不用系统标准的SORT语句）

不用ABAP的标准SORT语句，你能将下面这个数组按从小到大（或从大到小）的顺序重新排列，并计算其算法复杂度吗？

现在假设有一个数组:A = [10，66，52，102，-65，85，99，1，56，32，10，21，18]

算法思想一：

按数组顺序，每次读取一个数字放到新数组中，将这个数字与该数组中所有数字进行循环比较，确定存放位置

原数组：A = [10，66，52，102，-65，85，99，1，56，32，10，21，18]

步骤	排序后数组
1	10
2	10 66
3	10 52 66
4	10 52   66  102
5	-65 10 52 66 102
6	-65 10 52 66 85   102
7	。。。
8	。。。。。。

算法思想二：

每次从数组A重拿出一个最大（或最小）数字，拿出之后将数组A中的数字删除该数字，然后循环直到数组A被删空。

原数组：A = [10，66，52，102，-65，85，99，1，56，32，10，21，18]

步骤	新数组	数组A中剩余
1	-65	10，66，52，102，85，99，1，56，32，10，21，18
2	-65	10，66，52，102，85，99，56，32，10，21，18
3	-65 1 10 10	66，52，102，85，99，56，32，21，18
4	-65 1   10 10	66，52，102，85，99，56，32，21
5	-65 1   10 10 18	66，52，102，85，99，56，32
6	。。。	。。。。。。
7	。。。。。。	。。。

个人写的ABAP代码如下（采用的第二种算法思想，希望各位博友能看明白）：

1.首先随机制造10个[-100,100]内的随机不重复的数字放到数组A中，

2.然后循环数组A，并每次取出一个最大的数字放到数组B中，然后删除数组A中的该数字，直到数组A被清空。

代码如下：

 *&---------------------------------------------------------------------*
 *& Report  ZCHENH038
 *&
 *&---------------------------------------------------------------------*
 *&
 *&不用标准 sort语法 自己写排序语法
 *&---------------------------------------------------------------------*
 
 REPORT zchenh038.
 
 DATA:BEGIN OF a OCCURS ,
       num TYPE i,
       END OF a,
      b LIKE STANDARD TABLE OF a.
 
 PERFORM frm_full_data .
 PERFORM frm_show_data USING '排序前'.
 
 PERFORM frm_sort.
 PERFORM frm_show_data USING '排序后'.
 
 *&---------------------------------------------------------------------*
 *&      Form  FRM_FULL_DATA
 *&---------------------------------------------------------------------*
 *       随机产生10个 -100 到100 之间不重复的数
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        a
 *----------------------------------------------------------------------*
 FORM frm_full_data.
   DATA:lv_len TYPE i.
   WHILE lv_len < .
 * 随机产生一个数
     CALL FUNCTION 'QF05_RANDOM_INTEGER'
       EXPORTING
         ran_int_max =
         ran_int_min = -
       IMPORTING
         ran_int     = a-num.
     READ TABLE a WITH KEY num = a-num.
     CHECK sy-subrc <> .
     APPEND a.
     DESCRIBE TABLE a LINES lv_len.
   ENDWHILE.
 
 ENDFORM.                    " FRM_FULL_DATA
 *&---------------------------------------------------------------------*
 *&      Form  FRM_SORT
 *&---------------------------------------------------------------------*
 *       开始排序
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        a
 *----------------------------------------------------------------------*
 FORM frm_sort .
   DATA:lt_b LIKE a OCCURS  WITH HEADER LINE.
   WHILE a[] IS NOT INITIAL.
     PERFORM frm_get_min TABLES a
                       CHANGING lt_b-num.
     APPEND lt_b.
     DELETE a WHERE num = lt_b-num.
   ENDWHILE.
   a[] = lt_b[].
 ENDFORM.                    " FRM_SORT
 
 *&---------------------------------------------------------------------*
 *&      Form  frm_min
 *&---------------------------------------------------------------------*
 *       找出t_a 中最小的数 p_n
 *----------------------------------------------------------------------*
 *  -->  p1        t_a
 *  <--  p2        p_n
 *----------------------------------------------------------------------*
 FORM frm_get_min TABLES t_a LIKE b
                CHANGING p_n.
   READ TABLE t_a INDEX .
   p_n = t_a-num.
   LOOP AT t_a.
     IF t_a-num <= p_n.
       p_n = t_a-num.
     ENDIF.
   ENDLOOP.
 ENDFORM.                    "frm_min
 *&---------------------------------------------------------------------*
 *&      Form  FRM_SHOW_DATA
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 FORM frm_show_data USING p_str TYPE string.
   WRITE:/,p_str,':'.
   LOOP AT a.
     WRITE:a-num,' '.
   ENDLOOP.
 ENDFORM.                    " FRM_SHOW_DATA

运行效果如图：