Stage 2 summary at 50 accepted trajectories
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
103
tasks_gen/train/G1065/reference/boat_hire_pricer.clas.abap
Normal file
103
tasks_gen/train/G1065/reference/boat_hire_pricer.clas.abap
Normal file
@@ -0,0 +1,103 @@
|
||||
CLASS {{p}}boat_hire_pricer DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
||||
PUBLIC SECTION.
|
||||
TYPES ty_reason TYPE c LENGTH 10.
|
||||
TYPES ty_price TYPE p LENGTH 10 DECIMALS 2.
|
||||
|
||||
TYPES:
|
||||
BEGIN OF ty_result,
|
||||
price TYPE ty_price,
|
||||
reason TYPE ty_reason,
|
||||
END OF ty_result.
|
||||
|
||||
CONSTANTS:
|
||||
BEGIN OF c_reason,
|
||||
ok TYPE ty_reason VALUE 'OK',
|
||||
category TYPE ty_reason VALUE 'CATEGORY',
|
||||
days TYPE ty_reason VALUE 'DAYS',
|
||||
crew TYPE ty_reason VALUE 'CREW',
|
||||
month TYPE ty_reason VALUE 'MONTH',
|
||||
END OF c_reason.
|
||||
|
||||
METHODS price
|
||||
IMPORTING iv_category TYPE string
|
||||
iv_days TYPE i
|
||||
iv_crew TYPE i
|
||||
iv_month TYPE i
|
||||
RETURNING VALUE(rs_result) TYPE ty_result.
|
||||
|
||||
PRIVATE SECTION.
|
||||
CONSTANTS:
|
||||
c_max_days TYPE i VALUE 28,
|
||||
c_max_crew TYPE i VALUE 12,
|
||||
c_max_month TYPE i VALUE 12,
|
||||
c_free_crew TYPE i VALUE 6,
|
||||
c_long_hire_days TYPE i VALUE 7,
|
||||
c_long_hire_discount TYPE ty_price VALUE '0.90',
|
||||
c_crew_surcharge TYPE ty_price VALUE '15.00'.
|
||||
|
||||
METHODS validate
|
||||
IMPORTING iv_rate TYPE ty_price
|
||||
iv_days TYPE i
|
||||
iv_crew TYPE i
|
||||
iv_month TYPE i
|
||||
RETURNING VALUE(rv_reason) TYPE ty_reason.
|
||||
|
||||
METHODS calculate
|
||||
IMPORTING iv_rate TYPE ty_price
|
||||
iv_days TYPE i
|
||||
iv_crew TYPE i
|
||||
iv_factor TYPE ty_price
|
||||
RETURNING VALUE(rv_price) TYPE ty_price.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}boat_hire_pricer IMPLEMENTATION.
|
||||
METHOD price.
|
||||
DATA(lo_rates) = NEW {{p}}hire_rates( ).
|
||||
DATA(lv_rate) = lo_rates->get_daily_rate( iv_category ).
|
||||
|
||||
DATA(lv_reason) = validate( iv_rate = lv_rate
|
||||
iv_days = iv_days
|
||||
iv_crew = iv_crew
|
||||
iv_month = iv_month ).
|
||||
IF lv_reason <> c_reason-ok.
|
||||
rs_result-reason = lv_reason.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
|
||||
rs_result-price = calculate( iv_rate = lv_rate
|
||||
iv_days = iv_days
|
||||
iv_crew = iv_crew
|
||||
iv_factor = lo_rates->get_season_factor( iv_month ) ).
|
||||
rs_result-reason = c_reason-ok.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD validate.
|
||||
IF iv_rate <= 0.
|
||||
rv_reason = c_reason-category.
|
||||
ELSEIF iv_days < 1 OR iv_days > c_max_days.
|
||||
rv_reason = c_reason-days.
|
||||
ELSEIF iv_crew < 1 OR iv_crew > c_max_crew.
|
||||
rv_reason = c_reason-crew.
|
||||
ELSEIF iv_month < 1 OR iv_month > c_max_month.
|
||||
rv_reason = c_reason-month.
|
||||
ELSE.
|
||||
rv_reason = c_reason-ok.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD calculate.
|
||||
DATA lv_price TYPE ty_price.
|
||||
lv_price = iv_rate * iv_days * iv_factor.
|
||||
|
||||
IF iv_days >= c_long_hire_days.
|
||||
lv_price = lv_price * c_long_hire_discount.
|
||||
ENDIF.
|
||||
|
||||
IF iv_crew > c_free_crew.
|
||||
lv_price = lv_price + ( iv_crew - c_free_crew ) * c_crew_surcharge * iv_days.
|
||||
ENDIF.
|
||||
|
||||
rv_price = lv_price.
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
@@ -0,0 +1,90 @@
|
||||
CLASS ltc_boat_hire_pricer DEFINITION FINAL FOR TESTING
|
||||
DURATION SHORT RISK LEVEL HARMLESS.
|
||||
PRIVATE SECTION.
|
||||
CONSTANTS:
|
||||
c_468 TYPE {{p}}boat_hire_pricer=>ty_price VALUE '468.00',
|
||||
c_1344 TYPE {{p}}boat_hire_pricer=>ty_price VALUE '1344.00',
|
||||
c_208 TYPE {{p}}boat_hire_pricer=>ty_price VALUE '208.00',
|
||||
c_zero TYPE {{p}}boat_hire_pricer=>ty_price VALUE 0.
|
||||
|
||||
DATA mo_cut TYPE REF TO {{p}}boat_hire_pricer.
|
||||
|
||||
METHODS setup.
|
||||
METHODS narrow_ok FOR TESTING.
|
||||
METHODS wide_discount FOR TESTING.
|
||||
METHODS low_season FOR TESTING.
|
||||
METHODS unknown_category FOR TESTING.
|
||||
METHODS bad_days FOR TESTING.
|
||||
METHODS bad_crew FOR TESTING.
|
||||
METHODS bad_month FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS ltc_boat_hire_pricer IMPLEMENTATION.
|
||||
METHOD setup.
|
||||
mo_cut = NEW {{p}}boat_hire_pricer( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD narrow_ok.
|
||||
DATA(ls_result) = mo_cut->price( iv_category = 'NARROW'
|
||||
iv_days = 3
|
||||
iv_crew = 4
|
||||
iv_month = 7 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = {{p}}boat_hire_pricer=>c_reason-ok
|
||||
act = ls_result-reason ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = c_468 act = ls_result-price ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD wide_discount.
|
||||
DATA(ls_result) = mo_cut->price( iv_category = 'WIDE'
|
||||
iv_days = 7
|
||||
iv_crew = 8
|
||||
iv_month = 5 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = c_1344 act = ls_result-price ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD low_season.
|
||||
DATA(ls_result) = mo_cut->price( iv_category = 'BARGE'
|
||||
iv_days = 1
|
||||
iv_crew = 1
|
||||
iv_month = 12 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = c_208 act = ls_result-price ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD unknown_category.
|
||||
DATA(ls_result) = mo_cut->price( iv_category = 'CANOE'
|
||||
iv_days = 3
|
||||
iv_crew = 4
|
||||
iv_month = 7 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = {{p}}boat_hire_pricer=>c_reason-category
|
||||
act = ls_result-reason ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = c_zero act = ls_result-price ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD bad_days.
|
||||
DATA(ls_result) = mo_cut->price( iv_category = 'NARROW'
|
||||
iv_days = 0
|
||||
iv_crew = 4
|
||||
iv_month = 7 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = {{p}}boat_hire_pricer=>c_reason-days
|
||||
act = ls_result-reason ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD bad_crew.
|
||||
DATA(ls_result) = mo_cut->price( iv_category = 'NARROW'
|
||||
iv_days = 3
|
||||
iv_crew = 13
|
||||
iv_month = 7 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = {{p}}boat_hire_pricer=>c_reason-crew
|
||||
act = ls_result-reason ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD bad_month.
|
||||
DATA(ls_result) = mo_cut->price( iv_category = 'NARROW'
|
||||
iv_days = 3
|
||||
iv_crew = 4
|
||||
iv_month = 13 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = {{p}}boat_hire_pricer=>c_reason-month
|
||||
act = ls_result-reason ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user