CLASS {{p}}bowling_fee DEFINITION PUBLIC FINAL CREATE PUBLIC.
  PUBLIC SECTION.
    INTERFACES {{p}}if_bowling_fee.

  PRIVATE SECTION.
    TYPES ty_rate TYPE p LENGTH 5 DECIMALS 2.

    CONSTANTS:
      c_lane_fee  TYPE {{p}}if_bowling_fee=>ty_fee VALUE '12.00',
      c_shoe_fee  TYPE {{p}}if_bowling_fee=>ty_fee VALUE '2.50',
      c_group_dis TYPE ty_rate VALUE '0.10',
      c_large_dis TYPE ty_rate VALUE '0.20'.

    METHODS lane_fee
      IMPORTING iv_lanes      TYPE i
                iv_hours      TYPE i
      RETURNING VALUE(rv_fee) TYPE {{p}}if_bowling_fee=>ty_fee.

    METHODS discount_rate
      IMPORTING iv_lanes       TYPE i
                iv_hours       TYPE i
      RETURNING VALUE(rv_rate) TYPE ty_rate.

    METHODS shoe_rental
      IMPORTING iv_shoes      TYPE i
      RETURNING VALUE(rv_fee) TYPE {{p}}if_bowling_fee=>ty_fee.
ENDCLASS.


CLASS {{p}}bowling_fee IMPLEMENTATION.
  METHOD {{p}}if_bowling_fee~calculate_fee.
    DATA(lv_lane_fee) = lane_fee( iv_lanes = iv_lanes iv_hours = iv_hours ).
    lv_lane_fee = lv_lane_fee * ( 1 - discount_rate( iv_lanes = iv_lanes iv_hours = iv_hours ) ).
    rv_fee = lv_lane_fee + shoe_rental( iv_shoes ).
  ENDMETHOD.

  METHOD lane_fee.
    IF iv_lanes <= 0 OR iv_hours <= 0.
      RETURN.
    ENDIF.
    rv_fee = c_lane_fee * iv_lanes * iv_hours.
  ENDMETHOD.

  METHOD discount_rate.
    IF iv_lanes > 4 AND iv_hours > 3.
      rv_rate = c_large_dis.
    ELSEIF iv_lanes > 4.
      rv_rate = c_group_dis.
    ELSEIF iv_hours > 3.
      rv_rate = c_large_dis.
    ENDIF.
  ENDMETHOD.

  METHOD shoe_rental.
    IF iv_shoes <= 0.
      RETURN.
    ENDIF.
    rv_fee = c_shoe_fee * iv_shoes.
  ENDMETHOD.
ENDCLASS.