Fibonacci - Tabulated 1d array manipulation

 data: lt_d type table of i,

    wa_d type i,

    lv_ind type i value 3,

    lv_inp type i value 7.

lt_d = VALUE #( ( 0 ) ( 1 ) ).

do ( lv_inp - 2 ) times.

wa_d = lt_d[ lv_ind - 1 ] + lt_d[ lv_ind - 2 ].

append wa_d to lt_d.

lv_ind = lv_ind + 1.

enddo.


write: lt_d[ lv_inp ].


Comments

Post a Comment

Popular posts from this blog

Can Reach program ( 1 d arrray)

 data str_abap_rocks(100) value 'CanRachProgram'.  WRITE: str_abap_rocks. data:lt_int type table of i,     lt_ival type table of i,     lv_ind type i value 1,     lv_temp type i,     lv_target type i value 7. lt_ival = VALUE #( ( 3 ) ( 4 ) ( 7 ) ). lt_int = VALUE #( ( 0 ) ). *perform init_array using lt_int lv_target. *form init_array using lt_int type table of i lv_target type i. do lv_target times. lv_temp = lt_int[ 1 ]. append lv_temp to lt_int. enddo. *endform. *perform can_reach using lt_int lt_ival lv_target. *form can_reach using lt_int type table of i lt_ival type table of i lv_target type i. loop at lt_ival into data(wa_ival). if ( wa_ival <= lv_target ). lt_int[ wa_ival ] = 1. endif. endloop. while lv_ind <= lv_target. loop at lt_ival into wa_ival. if ( wa_ival + lv_ind <= lv_target and lt_int[ lv_ind ] > 0 ) lt_int[ wa_ival + lv_ind ] = 1. endif. endloop. lv_ind = lv_ind + 1. endwhile. *endform. write: lt_int[ lv_t...
Read more

Bubble Sort

 data str_abap_rocks(100) value 'ABAP Editor rocks!!!'.  WRITE: str_abap_rocks. types: begin of ty_id,         id type int4,         end of ty_id. types: ty_id2 type standard table of ty_id with empty key. data: it_d type table of int4,     it_d3 type table of ty_id,       wa_d type int4. data: lv_np type i,       lv_ns type i. it_d = VALUE #( ( 4 ) ( 1 ) ( 3 ) ( 2 ) ( 5 ) ). DESCRIBE table it_d lines data(lv_lines). write:/ lv_lines. new-line. lv_np = 0. lv_ns = 0. while sy-index < lv_lines. data(wa_bd) = it_d[ 1 ]. lv_np = lv_np + 1. loop at it_d into data(wa_cd) from 2 to lv_lines - sy-index + 1. if ( wa_bd  > wa_cd ). lv_ns = lv_ns + 1. it_d[ sy-tabix ] = wa_bd. it_d[ sy-tabix - 1 ] = wa_cd. else. wa_bd = wa_cd. endif. endloop. endwhile. WRITE: lv_ns. WRITE: lv_np. new-line. DATA(it_d2) = VALUE ty_id2( FOR wa_d2 IN it_d ( id = wa_d2 ) ).   LOOP at it_d2 into data(wa_d3).   ...
Read more