Stage 2 summary at 50 accepted trajectories

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>

tasks_gen/train/G1093/reference/mix_price.func.abap

@@ -0,0 +1,57 @@
+FUNCTION {{P}}MIX_PRICE
+  IMPORTING
+    it_tints TYPE {{P}}PAINT_MIX=>TY_TINTS
+  EXPORTING
+    ev_volume TYPE decfloat34
+    ev_price TYPE decfloat34
+  EXCEPTIONS
+    no_components
+    invalid_quantity
+    unknown_tint.
+
+  CONSTANTS c_mix_fee TYPE decfloat34 VALUE '1.5'.
+
+  TYPES: ty_id TYPE c LENGTH 4,
+         ty_ids TYPE SORTED TABLE OF ty_id WITH UNIQUE KEY table_line,
+         BEGIN OF ty_price,
+           tint_id  TYPE c LENGTH 4,
+           price_ml TYPE p LENGTH 13 DECIMALS 3,
+         END OF ty_price,
+         ty_prices TYPE SORTED TABLE OF ty_price WITH UNIQUE KEY tint_id.
+
+  IF it_tints IS INITIAL.
+    RAISE no_components.
+  ENDIF.
+
+  DATA lt_ids TYPE ty_ids.
+  LOOP AT it_tints INTO DATA(ls_tint).
+    IF ls_tint-quantity_ml <= 0.
+      RAISE invalid_quantity.
+    ENDIF.
+    INSERT VALUE #( table_line = ls_tint-tint_id ) INTO TABLE lt_ids.
+  ENDLOOP.
+
+  DATA lt_prices TYPE ty_prices.
+  SELECT tint_id, price_ml FROM {{P}}TINTPR
+    WHERE tint_id IN @lt_ids
+    ORDER BY tint_id
+    INTO TABLE @lt_prices.
+
+  LOOP AT lt_ids INTO DATA(lv_id).
+    READ TABLE lt_prices WITH TABLE KEY tint_id = lv_id TRANSPORTING NO FIELDS.
+    IF sy-subrc <> 0.
+      RAISE unknown_tint.
+    ENDIF.
+  ENDLOOP.
+
+  DATA lv_material TYPE decfloat34.
+  LOOP AT it_tints INTO DATA(ls_item).
+    READ TABLE lt_prices INTO DATA(ls_price) WITH TABLE KEY tint_id = ls_item-tint_id.
+    ev_volume = ev_volume + ls_item-quantity_ml.
+    lv_material = lv_material + ls_item-quantity_ml * ls_price-price_ml.
+  ENDLOOP.
+
+  ev_price = round( val = lv_material + lines( lt_ids ) * c_mix_fee
+                    dec = 2 mode = cl_abap_math=>round_half_up ).
+
+ENDFUNCTION.

tasks_gen/train/G1093/reference/mix_test.clas.abap

@@ -0,0 +1,73 @@
+CLASS {{p}}mix_test DEFINITION PUBLIC FINAL CREATE PUBLIC
+  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
+  PRIVATE SECTION.
+    METHODS price_of
+      IMPORTING it_tints TYPE {{P}}PAINT_MIX=>TY_TINTS
+      EXPORTING ev_volume TYPE decfloat34
+                ev_price  TYPE decfloat34
+                ev_subrc  TYPE sysubrc.
+    METHODS two_tints FOR TESTING.
+    METHODS repeated_tint FOR TESTING.
+    METHODS empty_order FOR TESTING.
+    METHODS bad_quantity FOR TESTING.
+    METHODS unknown_tint FOR TESTING.
+ENDCLASS.
+
+
+CLASS {{p}}mix_test IMPLEMENTATION.
+  METHOD price_of.
+    CALL FUNCTION '{{P}}MIX_PRICE'
+      EXPORTING
+        it_tints = it_tints
+      IMPORTING
+        ev_volume = ev_volume
+        ev_price  = ev_price
+      EXCEPTIONS
+        no_components    = 1
+        invalid_quantity = 2
+        unknown_tint     = 3
+        OTHERS           = 4.
+    ev_subrc = sy-subrc.
+  ENDMETHOD.
+
+  METHOD two_tints.
+    price_of( EXPORTING it_tints = VALUE #( ( tint_id = 'WHIT' quantity_ml = 1000 )
+                                            ( tint_id = 'BLUE' quantity_ml = 200 ) )
+              IMPORTING ev_volume = DATA(lv_volume)
+                        ev_price  = DATA(lv_price)
+                        ev_subrc  = DATA(lv_subrc) ).
+    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_subrc ).
+    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 1200 ) act = lv_volume ).
+    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 32 ) act = lv_price ).
+  ENDMETHOD.
+
+  METHOD repeated_tint.
+    price_of( EXPORTING it_tints = VALUE #( ( tint_id = 'GREY' quantity_ml = 200 )
+                                            ( tint_id = 'GREY' quantity_ml = 300 ) )
+              IMPORTING ev_volume = DATA(lv_volume)
+                        ev_price  = DATA(lv_price)
+                        ev_subrc  = DATA(lv_subrc) ).
+    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_subrc ).
+    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 500 ) act = lv_volume ).
+    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '16.5' ) act = lv_price ).
+  ENDMETHOD.
+
+  METHOD empty_order.
+    DATA lt_tints TYPE {{P}}PAINT_MIX=>TY_TINTS.
+    price_of( EXPORTING it_tints = lt_tints
+              IMPORTING ev_subrc = DATA(lv_subrc) ).
+    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_subrc ).
+  ENDMETHOD.
+
+  METHOD bad_quantity.
+    price_of( EXPORTING it_tints = VALUE #( ( tint_id = 'GOLD' quantity_ml = -1 ) )
+              IMPORTING ev_subrc = DATA(lv_subrc) ).
+    cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_subrc ).
+  ENDMETHOD.
+
+  METHOD unknown_tint.
+    price_of( EXPORTING it_tints = VALUE #( ( tint_id = 'ZZZZ' quantity_ml = 10 ) )
+              IMPORTING ev_subrc = DATA(lv_subrc) ).
+    cl_abap_unit_assert=>assert_equals( exp = 3 act = lv_subrc ).
+  ENDMETHOD.
+ENDCLASS.