golden ratio prize payout

golden_ratio_prize_payout.r

prize_money <- function(places, entry_fee, members){
  gold <- (1 + sqrt(5)) / 2
  place_count <- function(prize_dist, places, place_counter){
    if(place_counter == 1){
      result <- place_count(c(1 - 1 / gold, 1/gold), places, place_counter + 1)
    } else if(place_counter == places){
      return(prize_dist)
    } else {
      result <- place_count(c(c(1 - 1 / gold, 1 / gold) * prize_dist[1], prize_dist[-1]), places, place_counter + 1)
    }
    return(result)
  }
  
  prize_dist <- place_count(c(), places, 1)
  round(prize_dist * entry_fee * members, -1)
}