Stage 2 summary at 50 accepted trajectories
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
62
tasks_gen/train/G1121/reference/mush_harvest.func.abap
Normal file
62
tasks_gen/train/G1121/reference/mush_harvest.func.abap
Normal 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.
|
||||
89
tasks_gen/train/G1121/reference/t_mush_test.clas.abap
Normal file
89
tasks_gen/train/G1121/reference/t_mush_test.clas.abap
Normal 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.
|
||||
Reference in New Issue
Block a user