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,62 @@
FUNCTION {{p}}mush_harvest
IMPORTING
iv_room_a TYPE string
iv_room_b TYPE string
EXPORTING
ev_total_kg TYPE decfloat34
ev_room_count TYPE i
ev_top_grade TYPE char1
EXCEPTIONS
no_stock.
DATA lt_rows TYPE STANDARD TABLE OF {{P}}HARVEST.
DATA lt_stock TYPE SORTED TABLE OF {{P}}HARVEST WITH UNIQUE KEY room_id grade.
DATA lt_grade TYPE SORTED TABLE OF {{P}}HARVEST WITH UNIQUE KEY grade.
DATA lv_room TYPE {{P}}HARVEST-room_id.
DATA lv_best TYPE {{P}}HARVEST-weight_kg.
SELECT room_id, grade, batch_no, weight_kg
FROM {{P}}HARVEST
WHERE room_id <> ''
AND grade IN ( 'A', 'B', 'C' )
AND weight_kg > 0
AND ( room_id = @iv_room_a OR room_id = @iv_room_b )
INTO TABLE @lt_rows.
IF lt_rows IS INITIAL.
RAISE no_stock.
ENDIF.
LOOP AT lt_rows ASSIGNING FIELD-SYMBOL(<ls_row>).
ev_total_kg = ev_total_kg + <ls_row>-weight_kg.
READ TABLE lt_stock ASSIGNING FIELD-SYMBOL(<ls_stock>)
WITH TABLE KEY room_id = <ls_row>-room_id grade = <ls_row>-grade.
IF sy-subrc = 0.
<ls_stock>-weight_kg = <ls_stock>-weight_kg + <ls_row>-weight_kg.
ELSE.
INSERT <ls_row> INTO TABLE lt_stock.
ENDIF.
READ TABLE lt_grade ASSIGNING FIELD-SYMBOL(<ls_grade>)
WITH TABLE KEY grade = <ls_row>-grade.
IF sy-subrc = 0.
<ls_grade>-weight_kg = <ls_grade>-weight_kg + <ls_row>-weight_kg.
ELSE.
INSERT <ls_row> INTO TABLE lt_grade.
ENDIF.
ENDLOOP.
LOOP AT lt_stock INTO DATA(ls_stock).
IF ls_stock-room_id <> lv_room.
ev_room_count = ev_room_count + 1.
lv_room = ls_stock-room_id.
ENDIF.
ENDLOOP.
LOOP AT lt_grade INTO DATA(ls_grade).
IF ls_grade-weight_kg > lv_best.
lv_best = ls_grade-weight_kg.
ev_top_grade = ls_grade-grade.
ENDIF.
ENDLOOP.
ENDFUNCTION.

View File

@@ -0,0 +1,89 @@
CLASS {{p}}t_mush_test DEFINITION PUBLIC FINAL CREATE PUBLIC
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS setup.
METHODS teardown.
METHODS add_batch
IMPORTING iv_room TYPE string iv_grade TYPE string
iv_batch TYPE string iv_weight TYPE decfloat34.
METHODS call
IMPORTING iv_a TYPE string iv_b TYPE string
EXPORTING ev_total TYPE decfloat34 ev_rooms TYPE i
ev_grade TYPE char1 ev_subrc TYPE sysubrc.
METHODS sums_two_rooms FOR TESTING.
METHODS ignores_bad_records FOR TESTING.
METHODS finds_top_grade FOR TESTING.
METHODS raises_without_records FOR TESTING.
ENDCLASS.
CLASS {{p}}t_mush_test IMPLEMENTATION.
METHOD setup.
DELETE FROM {{P}}HARVEST.
ENDMETHOD.
METHOD teardown.
DELETE FROM {{P}}HARVEST.
ENDMETHOD.
METHOD add_batch.
DATA ls_row TYPE {{P}}HARVEST.
ls_row-room_id = iv_room.
ls_row-grade = iv_grade.
ls_row-batch_no = iv_batch.
ls_row-weight_kg = iv_weight.
INSERT {{P}}HARVEST FROM @ls_row.
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
ENDMETHOD.
METHOD call.
CALL FUNCTION '{{P}}MUSH_HARVEST'
EXPORTING
iv_room_a = iv_a
iv_room_b = iv_b
IMPORTING
ev_total_kg = ev_total
ev_room_count = ev_rooms
ev_top_grade = ev_grade
EXCEPTIONS
no_stock = 1
OTHERS = 2.
ev_subrc = sy-subrc.
ENDMETHOD.
METHOD sums_two_rooms.
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '001' iv_weight = '10.000' ).
add_batch( iv_room = 'R02' iv_grade = 'B' iv_batch = '001' iv_weight = '5.000' ).
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
IMPORTING ev_total = DATA(lv_total) ev_rooms = DATA(lv_rooms) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 15 ) act = lv_total ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_rooms ).
ENDMETHOD.
METHOD ignores_bad_records.
add_batch( iv_room = 'R01' iv_grade = 'D' iv_batch = '001' iv_weight = '4.000' ).
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '002' iv_weight = '0.000' ).
add_batch( iv_room = 'R01' iv_grade = 'B' iv_batch = '003' iv_weight = '3.000' ).
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
IMPORTING ev_total = DATA(lv_total) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 3 ) act = lv_total ).
ENDMETHOD.
METHOD finds_top_grade.
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '001' iv_weight = '1.000' ).
add_batch( iv_room = 'R01' iv_grade = 'B' iv_batch = '002' iv_weight = '9.000' ).
call( EXPORTING iv_a = 'R01' iv_b = 'R01'
IMPORTING ev_grade = DATA(lv_grade) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 'B' act = lv_grade ).
ENDMETHOD.
METHOD raises_without_records.
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
IMPORTING ev_total = DATA(lv_total) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_total ).
ENDMETHOD.
ENDCLASS.