Stage 2 summary at 50 accepted trajectories

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
2026-10-05 18:02:52 +02:00
parent 332fb4601d
commit 5bcd1bf9cd
1230 changed files with 77563 additions and 33 deletions

View File

@@ -0,0 +1,96 @@
CLASS {{p}}keg_tour_merger DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
TYPES:
BEGIN OF ty_entry,
pub_id TYPE c LENGTH 8,
keg_type TYPE c LENGTH 4,
kegs TYPE i,
END OF ty_entry,
tt_entry TYPE STANDARD TABLE OF ty_entry WITH EMPTY KEY,
BEGIN OF ty_pub,
pub_id TYPE c LENGTH 8,
kegs TYPE i,
END OF ty_pub,
tt_pub TYPE STANDARD TABLE OF ty_pub WITH EMPTY KEY.
METHODS merge_tours
IMPORTING it_tour_a TYPE tt_entry
it_tour_b TYPE tt_entry
RETURNING VALUE(rt_tour) TYPE tt_entry.
METHODS top_pubs
IMPORTING it_tour TYPE tt_entry
iv_count TYPE i
RETURNING VALUE(rt_pubs) TYPE tt_pub.
PRIVATE SECTION.
TYPES tt_agg TYPE HASHED TABLE OF ty_entry WITH UNIQUE KEY pub_id keg_type.
TYPES tt_pub_agg TYPE HASHED TABLE OF ty_pub WITH UNIQUE KEY pub_id.
METHODS add_entries
IMPORTING it_tour TYPE tt_entry
CHANGING ct_agg TYPE tt_agg.
METHODS add_pubs
IMPORTING it_tour TYPE tt_entry
CHANGING ct_pub TYPE tt_pub_agg.
ENDCLASS.
CLASS {{p}}keg_tour_merger IMPLEMENTATION.
METHOD merge_tours.
DATA lt_agg TYPE tt_agg.
add_entries( EXPORTING it_tour = it_tour_a CHANGING ct_agg = lt_agg ).
add_entries( EXPORTING it_tour = it_tour_b CHANGING ct_agg = lt_agg ).
rt_tour = lt_agg.
SORT rt_tour BY pub_id keg_type.
ENDMETHOD.
METHOD top_pubs.
IF iv_count < 1.
RETURN.
ENDIF.
DATA lt_agg TYPE tt_pub_agg.
add_pubs( EXPORTING it_tour = it_tour CHANGING ct_pub = lt_agg ).
rt_pubs = lt_agg.
SORT rt_pubs BY kegs DESCENDING pub_id ASCENDING.
DATA(lv_from) = iv_count + 1.
IF lines( rt_pubs ) >= lv_from.
DELETE rt_pubs FROM lv_from.
ENDIF.
ENDMETHOD.
METHOD add_entries.
LOOP AT it_tour INTO DATA(ls_entry).
IF ls_entry-kegs < 1.
CONTINUE.
ENDIF.
DATA(ls_norm) = VALUE ty_entry( pub_id = to_upper( ls_entry-pub_id )
keg_type = to_upper( ls_entry-keg_type )
kegs = ls_entry-kegs ).
ASSIGN ct_agg[ pub_id = ls_norm-pub_id
keg_type = ls_norm-keg_type ] TO FIELD-SYMBOL(<ls_agg>).
IF sy-subrc = 0.
<ls_agg>-kegs = <ls_agg>-kegs + ls_norm-kegs.
ELSE.
INSERT ls_norm INTO TABLE ct_agg.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD add_pubs.
LOOP AT it_tour INTO DATA(ls_entry).
IF ls_entry-kegs < 1.
CONTINUE.
ENDIF.
DATA(lv_pub_id) = to_upper( ls_entry-pub_id ).
ASSIGN ct_pub[ pub_id = lv_pub_id ] TO FIELD-SYMBOL(<ls_pub>).
IF sy-subrc = 0.
<ls_pub>-kegs = <ls_pub>-kegs + ls_entry-kegs.
ELSE.
DATA(ls_new) = VALUE ty_pub( pub_id = lv_pub_id kegs = ls_entry-kegs ).
INSERT ls_new INTO TABLE ct_pub.
ENDIF.
ENDLOOP.
ENDMETHOD.
ENDCLASS.