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:
87
tasks_gen/train/G1037/reference/piano_pricer.clas.abap
Normal file
87
tasks_gen/train/G1037/reference/piano_pricer.clas.abap
Normal file
@@ -0,0 +1,87 @@
|
||||
CLASS {{p}}piano_pricer DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
||||
PUBLIC SECTION.
|
||||
TYPES ty_piano_type TYPE c LENGTH 1.
|
||||
TYPES ty_amount TYPE p LENGTH 8 DECIMALS 2.
|
||||
TYPES ty_reason TYPE c LENGTH 8.
|
||||
TYPES:
|
||||
BEGIN OF ty_charge,
|
||||
reason TYPE ty_reason,
|
||||
base_fee TYPE ty_amount,
|
||||
travel_fee TYPE ty_amount,
|
||||
extra_fee TYPE ty_amount,
|
||||
total_fee TYPE ty_amount,
|
||||
END OF ty_charge.
|
||||
CONSTANTS:
|
||||
BEGIN OF c_reason,
|
||||
ok TYPE ty_reason VALUE 'OK',
|
||||
unknown TYPE ty_reason VALUE 'UNKNOWN',
|
||||
distance TYPE ty_reason VALUE 'DISTANCE',
|
||||
pitch TYPE ty_reason VALUE 'PITCH',
|
||||
END OF c_reason.
|
||||
METHODS calculate
|
||||
IMPORTING iv_piano_type TYPE ty_piano_type
|
||||
iv_distance_km TYPE i
|
||||
iv_pitch_cents TYPE i
|
||||
RETURNING VALUE(rs_charge) TYPE ty_charge.
|
||||
|
||||
PRIVATE SECTION.
|
||||
CONSTANTS c_standard_minutes TYPE i VALUE 45.
|
||||
|
||||
METHODS rate_for
|
||||
IMPORTING iv_piano_type TYPE ty_piano_type
|
||||
RETURNING VALUE(rs_rate) TYPE {{p}}tune_rates=>ty_rate.
|
||||
METHODS calc_extra_fee
|
||||
IMPORTING iv_pitch_cents TYPE i
|
||||
is_rate TYPE {{p}}tune_rates=>ty_rate
|
||||
RETURNING VALUE(rv_fee) TYPE ty_amount.
|
||||
METHODS calc_travel_fee
|
||||
IMPORTING iv_distance_km TYPE i
|
||||
RETURNING VALUE(rv_fee) TYPE ty_amount.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}piano_pricer IMPLEMENTATION.
|
||||
METHOD calculate.
|
||||
DATA(ls_rate) = rate_for( iv_piano_type ).
|
||||
IF ls_rate IS INITIAL.
|
||||
rs_charge = VALUE #( reason = c_reason-unknown ).
|
||||
RETURN.
|
||||
ENDIF.
|
||||
IF iv_distance_km < 0.
|
||||
rs_charge = VALUE #( reason = c_reason-distance ).
|
||||
RETURN.
|
||||
ENDIF.
|
||||
IF iv_pitch_cents < 0.
|
||||
rs_charge = VALUE #( reason = c_reason-pitch ).
|
||||
RETURN.
|
||||
ENDIF.
|
||||
rs_charge = VALUE #( reason = c_reason-ok
|
||||
base_fee = ls_rate-base_fee
|
||||
travel_fee = calc_travel_fee( iv_distance_km )
|
||||
extra_fee = calc_extra_fee( iv_pitch_cents = iv_pitch_cents
|
||||
is_rate = ls_rate ) ).
|
||||
rs_charge-total_fee = rs_charge-base_fee + rs_charge-travel_fee + rs_charge-extra_fee.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD rate_for.
|
||||
DATA(lo_rates) = NEW {{p}}tune_rates( ).
|
||||
DATA(lt_rate) = lo_rates->get_rates( ).
|
||||
READ TABLE lt_rate WITH KEY piano_type = iv_piano_type INTO rs_rate.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD calc_extra_fee.
|
||||
DATA(lv_extra_minutes) = c_standard_minutes + iv_pitch_cents - is_rate-incl_minutes.
|
||||
IF lv_extra_minutes <= 0.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
rv_fee = lv_extra_minutes * is_rate-minute_fee.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD calc_travel_fee.
|
||||
DATA(lv_chargeable_km) = iv_distance_km - {{p}}tune_rates=>c_free_km.
|
||||
IF lv_chargeable_km <= 0.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
rv_fee = lv_chargeable_km * {{p}}tune_rates=>c_km_fee.
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user