Pipeline controller: plan 2 (hard +, error +50 %), backlog throttle, 2 trajectory workers, stop rules, summaries every 50; budget reserve
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
106
tasks_gen/train/G1022/reference/sweep_pricer.clas.abap
Normal file
106
tasks_gen/train/G1022/reference/sweep_pricer.clas.abap
Normal file
@@ -0,0 +1,106 @@
|
||||
CLASS {{p}}sweep_pricer DEFINITION
|
||||
PUBLIC
|
||||
FINAL
|
||||
CREATE PUBLIC.
|
||||
|
||||
PUBLIC SECTION.
|
||||
TYPES:
|
||||
ty_building TYPE c LENGTH 1,
|
||||
ty_fee TYPE p LENGTH 8 DECIMALS 2.
|
||||
|
||||
METHODS calculate
|
||||
IMPORTING iv_flues TYPE i
|
||||
iv_building TYPE ty_building
|
||||
iv_soot TYPE i
|
||||
iv_express TYPE abap_bool
|
||||
RETURNING VALUE(rv_fee) TYPE ty_fee.
|
||||
|
||||
PRIVATE SECTION.
|
||||
CONSTANTS:
|
||||
BEGIN OF c_building,
|
||||
house TYPE ty_building VALUE 'H',
|
||||
apartment TYPE ty_building VALUE 'A',
|
||||
restaurant TYPE ty_building VALUE 'R',
|
||||
END OF c_building,
|
||||
c_rate_house TYPE ty_fee VALUE '45.00',
|
||||
c_rate_apartment TYPE ty_fee VALUE '35.00',
|
||||
c_rate_restaurant TYPE ty_fee VALUE '60.00',
|
||||
c_express_fee TYPE ty_fee VALUE '25.00',
|
||||
c_min_fee TYPE ty_fee VALUE '60.00',
|
||||
c_no_fee TYPE ty_fee VALUE '0.00',
|
||||
c_discount_pct TYPE i VALUE 10,
|
||||
c_discount_flues TYPE i VALUE 4,
|
||||
c_soot_min TYPE i VALUE 2,
|
||||
c_soot_max TYPE i VALUE 5,
|
||||
c_soot_step TYPE i VALUE 5.
|
||||
|
||||
METHODS rate_of
|
||||
IMPORTING iv_building TYPE ty_building
|
||||
RETURNING VALUE(rv_rate) TYPE ty_fee.
|
||||
METHODS base_fee
|
||||
IMPORTING iv_flues TYPE i
|
||||
iv_rate TYPE ty_fee
|
||||
RETURNING VALUE(rv_base) TYPE ty_fee.
|
||||
METHODS soot_pct
|
||||
IMPORTING iv_soot TYPE i
|
||||
RETURNING VALUE(rv_pct) TYPE i.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
|
||||
CLASS {{p}}sweep_pricer IMPLEMENTATION.
|
||||
METHOD calculate.
|
||||
IF iv_flues < 1.
|
||||
rv_fee = c_no_fee.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
|
||||
DATA(lv_rate) = rate_of( iv_building ).
|
||||
IF lv_rate IS INITIAL.
|
||||
rv_fee = c_no_fee.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
|
||||
DATA(lv_fee) = base_fee( iv_flues = iv_flues
|
||||
iv_rate = lv_rate ).
|
||||
lv_fee = lv_fee + lv_fee * soot_pct( iv_soot ) / 100.
|
||||
|
||||
IF iv_express = abap_true.
|
||||
lv_fee = lv_fee + c_express_fee.
|
||||
ENDIF.
|
||||
|
||||
IF lv_fee < c_min_fee.
|
||||
lv_fee = c_min_fee.
|
||||
ENDIF.
|
||||
|
||||
rv_fee = lv_fee.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD rate_of.
|
||||
CASE iv_building.
|
||||
WHEN c_building-house.
|
||||
rv_rate = c_rate_house.
|
||||
WHEN c_building-apartment.
|
||||
rv_rate = c_rate_apartment.
|
||||
WHEN c_building-restaurant.
|
||||
rv_rate = c_rate_restaurant.
|
||||
WHEN OTHERS.
|
||||
rv_rate = c_no_fee.
|
||||
ENDCASE.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD base_fee.
|
||||
rv_base = iv_flues * iv_rate.
|
||||
IF iv_flues >= c_discount_flues.
|
||||
rv_base = rv_base - rv_base * c_discount_pct / 100.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD soot_pct.
|
||||
IF iv_soot >= c_soot_min AND iv_soot <= c_soot_max.
|
||||
rv_pct = ( iv_soot - 1 ) * c_soot_step.
|
||||
ELSE.
|
||||
rv_pct = 0.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
@@ -0,0 +1,81 @@
|
||||
CLASS ltc_sweep_pricer DEFINITION
|
||||
FINAL
|
||||
FOR TESTING
|
||||
DURATION SHORT
|
||||
RISK LEVEL HARMLESS.
|
||||
|
||||
PRIVATE SECTION.
|
||||
TYPES ty_fee TYPE p LENGTH 8 DECIMALS 2.
|
||||
|
||||
DATA mo_cut TYPE REF TO {{p}}sweep_pricer.
|
||||
|
||||
METHODS setup.
|
||||
METHODS minimum_fee_applies FOR TESTING.
|
||||
METHODS soot_surcharge FOR TESTING.
|
||||
METHODS volume_discount FOR TESTING.
|
||||
METHODS express_fee FOR TESTING.
|
||||
METHODS unknown_building FOR TESTING.
|
||||
METHODS invalid_flues FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
|
||||
CLASS ltc_sweep_pricer IMPLEMENTATION.
|
||||
METHOD setup.
|
||||
mo_cut = NEW {{p}}sweep_pricer( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD minimum_fee_applies.
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = CONV ty_fee( '60.00' )
|
||||
act = mo_cut->calculate( iv_flues = 1
|
||||
iv_building = 'A'
|
||||
iv_soot = 1
|
||||
iv_express = abap_false ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD soot_surcharge.
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = CONV ty_fee( '216.00' )
|
||||
act = mo_cut->calculate( iv_flues = 3
|
||||
iv_building = 'R'
|
||||
iv_soot = 5
|
||||
iv_express = abap_false ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD volume_discount.
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = CONV ty_fee( '132.30' )
|
||||
act = mo_cut->calculate( iv_flues = 4
|
||||
iv_building = 'A'
|
||||
iv_soot = 2
|
||||
iv_express = abap_false ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD express_fee.
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = CONV ty_fee( '115.00' )
|
||||
act = mo_cut->calculate( iv_flues = 2
|
||||
iv_building = 'H'
|
||||
iv_soot = 1
|
||||
iv_express = abap_true ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD unknown_building.
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = CONV ty_fee( '0.00' )
|
||||
act = mo_cut->calculate( iv_flues = 3
|
||||
iv_building = 'X'
|
||||
iv_soot = 3
|
||||
iv_express = abap_false ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD invalid_flues.
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = CONV ty_fee( '0.00' )
|
||||
act = mo_cut->calculate( iv_flues = 0
|
||||
iv_building = 'H'
|
||||
iv_soot = 3
|
||||
iv_express = abap_false ) ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user