Create algorithm_cut_price.R