Stage 2 summary at 50 accepted trajectories
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
110
tasks_gen/train/G1045/reference/cinema_pricer.clas.abap
Normal file
110
tasks_gen/train/G1045/reference/cinema_pricer.clas.abap
Normal file
@@ -0,0 +1,110 @@
|
||||
CLASS {{p}}cinema_pricer DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
||||
PUBLIC SECTION.
|
||||
INTERFACES {{p}}if_cinema_price.
|
||||
|
||||
PRIVATE SECTION.
|
||||
CONSTANTS:
|
||||
c_late_surcharge TYPE {{p}}if_cinema_price=>ty_amount VALUE '1.50',
|
||||
c_late_hour TYPE i VALUE 20,
|
||||
c_group_limit TYPE i VALUE 6,
|
||||
c_group_percent TYPE i VALUE 10,
|
||||
c_loyalty_pct TYPE i VALUE 5,
|
||||
c_max_tickets TYPE i VALUE 20,
|
||||
c_max_hour TYPE i VALUE 23.
|
||||
|
||||
METHODS is_known_screen
|
||||
IMPORTING iv_screen TYPE {{p}}if_cinema_price=>ty_screen
|
||||
RETURNING VALUE(rv_known) TYPE abap_bool.
|
||||
METHODS is_known_visitor
|
||||
IMPORTING iv_visitor TYPE {{p}}if_cinema_price=>ty_visitor
|
||||
RETURNING VALUE(rv_known) TYPE abap_bool.
|
||||
METHODS base_price
|
||||
IMPORTING iv_screen TYPE {{p}}if_cinema_price=>ty_screen
|
||||
RETURNING VALUE(rv_price) TYPE {{p}}if_cinema_price=>ty_amount.
|
||||
METHODS discount_percent
|
||||
IMPORTING iv_visitor TYPE {{p}}if_cinema_price=>ty_visitor
|
||||
RETURNING VALUE(rv_percent) TYPE i.
|
||||
METHODS ticket_price
|
||||
IMPORTING iv_screen TYPE {{p}}if_cinema_price=>ty_screen
|
||||
iv_visitor TYPE {{p}}if_cinema_price=>ty_visitor
|
||||
iv_show_hour TYPE i
|
||||
RETURNING VALUE(rv_price) TYPE {{p}}if_cinema_price=>ty_amount.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}cinema_pricer IMPLEMENTATION.
|
||||
METHOD {{p}}if_cinema_price~price.
|
||||
IF is_known_screen( iv_screen ) = abap_false.
|
||||
rs_result-reason = {{p}}if_cinema_price=>c_reason-screen.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
IF is_known_visitor( iv_visitor ) = abap_false.
|
||||
rs_result-reason = {{p}}if_cinema_price=>c_reason-visitor.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
IF iv_quantity < 1 OR iv_quantity > c_max_tickets.
|
||||
rs_result-reason = {{p}}if_cinema_price=>c_reason-quantity.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
IF iv_show_hour < 0 OR iv_show_hour > c_max_hour.
|
||||
rs_result-reason = {{p}}if_cinema_price=>c_reason-hour.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
|
||||
DATA lv_total TYPE {{p}}if_cinema_price=>ty_amount.
|
||||
lv_total = ticket_price( iv_screen = iv_screen
|
||||
iv_visitor = iv_visitor
|
||||
iv_show_hour = iv_show_hour ) * iv_quantity.
|
||||
IF iv_quantity >= c_group_limit.
|
||||
lv_total = lv_total * ( 100 - c_group_percent ) / 100.
|
||||
ENDIF.
|
||||
IF iv_loyalty = abap_true.
|
||||
lv_total = lv_total * ( 100 - c_loyalty_pct ) / 100.
|
||||
ENDIF.
|
||||
|
||||
rs_result-price = round( val = lv_total dec = 2 ).
|
||||
rs_result-reason = {{p}}if_cinema_price=>c_reason-ok.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD is_known_screen.
|
||||
rv_known = xsdbool( iv_screen = {{p}}if_cinema_price=>c_screen-standard
|
||||
OR iv_screen = {{p}}if_cinema_price=>c_screen-three_d
|
||||
OR iv_screen = {{p}}if_cinema_price=>c_screen-large ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD is_known_visitor.
|
||||
rv_known = xsdbool( iv_visitor = {{p}}if_cinema_price=>c_visitor-adult
|
||||
OR iv_visitor = {{p}}if_cinema_price=>c_visitor-child
|
||||
OR iv_visitor = {{p}}if_cinema_price=>c_visitor-senior ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD base_price.
|
||||
CASE iv_screen.
|
||||
WHEN {{p}}if_cinema_price=>c_screen-standard.
|
||||
rv_price = '9.50'.
|
||||
WHEN {{p}}if_cinema_price=>c_screen-three_d.
|
||||
rv_price = '12.00'.
|
||||
WHEN {{p}}if_cinema_price=>c_screen-large.
|
||||
rv_price = '15.00'.
|
||||
ENDCASE.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD discount_percent.
|
||||
CASE iv_visitor.
|
||||
WHEN {{p}}if_cinema_price=>c_visitor-child.
|
||||
rv_percent = 30.
|
||||
WHEN {{p}}if_cinema_price=>c_visitor-senior.
|
||||
rv_percent = 40.
|
||||
WHEN OTHERS.
|
||||
rv_percent = 0.
|
||||
ENDCASE.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD ticket_price.
|
||||
rv_price = base_price( iv_screen ).
|
||||
rv_price = rv_price * ( 100 - discount_percent( iv_visitor ) ) / 100.
|
||||
IF iv_show_hour >= c_late_hour.
|
||||
rv_price = rv_price + c_late_surcharge.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
@@ -0,0 +1,95 @@
|
||||
CLASS ltc_cinema_pricer DEFINITION FINAL FOR TESTING
|
||||
DURATION SHORT RISK LEVEL HARMLESS.
|
||||
PRIVATE SECTION.
|
||||
DATA mo_cut TYPE REF TO {{p}}if_cinema_price.
|
||||
|
||||
METHODS setup.
|
||||
METHODS standard_adult FOR TESTING.
|
||||
METHODS child_ticket FOR TESTING.
|
||||
METHODS late_show FOR TESTING.
|
||||
METHODS group_and_loyalty FOR TESTING.
|
||||
METHODS invalid_screen FOR TESTING.
|
||||
METHODS invalid_quantity FOR TESTING.
|
||||
|
||||
METHODS result_of
|
||||
IMPORTING iv_screen TYPE {{p}}if_cinema_price=>ty_screen
|
||||
iv_visitor TYPE {{p}}if_cinema_price=>ty_visitor
|
||||
iv_quantity TYPE i
|
||||
iv_hour TYPE i
|
||||
iv_loyalty TYPE abap_bool
|
||||
RETURNING VALUE(rs_result) TYPE {{p}}if_cinema_price=>ty_result.
|
||||
METHODS amount
|
||||
IMPORTING iv_text TYPE string
|
||||
RETURNING VALUE(rv_amount) TYPE {{p}}if_cinema_price=>ty_amount.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS ltc_cinema_pricer IMPLEMENTATION.
|
||||
METHOD setup.
|
||||
mo_cut = NEW {{p}}cinema_pricer( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD standard_adult.
|
||||
DATA(ls_result) = result_of( iv_screen = 'S' iv_visitor = 'A'
|
||||
iv_quantity = 1 iv_hour = 18
|
||||
iv_loyalty = abap_false ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = amount( '9.50' )
|
||||
act = ls_result-price ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_cinema_price=>c_reason-ok
|
||||
act = ls_result-reason ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD child_ticket.
|
||||
DATA(ls_result) = result_of( iv_screen = 'T' iv_visitor = 'C'
|
||||
iv_quantity = 1 iv_hour = 18
|
||||
iv_loyalty = abap_false ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = amount( '8.40' )
|
||||
act = ls_result-price ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD late_show.
|
||||
DATA(ls_result) = result_of( iv_screen = 'S' iv_visitor = 'A'
|
||||
iv_quantity = 1 iv_hour = 20
|
||||
iv_loyalty = abap_false ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = amount( '11.00' )
|
||||
act = ls_result-price ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD group_and_loyalty.
|
||||
DATA(ls_result) = result_of( iv_screen = 'T' iv_visitor = 'C'
|
||||
iv_quantity = 6 iv_hour = 21
|
||||
iv_loyalty = abap_true ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = amount( '50.79' )
|
||||
act = ls_result-price ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD invalid_screen.
|
||||
DATA(ls_result) = result_of( iv_screen = 'X' iv_visitor = 'A'
|
||||
iv_quantity = 1 iv_hour = 18
|
||||
iv_loyalty = abap_false ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_cinema_price=>c_reason-screen
|
||||
act = ls_result-reason ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = amount( '0.00' )
|
||||
act = ls_result-price ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD invalid_quantity.
|
||||
DATA(ls_result) = result_of( iv_screen = 'S' iv_visitor = 'A'
|
||||
iv_quantity = 0 iv_hour = 18
|
||||
iv_loyalty = abap_false ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_cinema_price=>c_reason-quantity
|
||||
act = ls_result-reason ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD result_of.
|
||||
rs_result = mo_cut->price( iv_screen = iv_screen
|
||||
iv_visitor = iv_visitor
|
||||
iv_quantity = iv_quantity
|
||||
iv_show_hour = iv_hour
|
||||
iv_loyalty = iv_loyalty ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD amount.
|
||||
rv_amount = iv_text.
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user