Убить интуицию

[spamsink]

Задачка:

У Сигизмунда Полуэкта есть фитнес-трекер, который, в частности, умеет считать количество "этажей", на которые человек пешком поднялся за день, и умеет показывать статистику

Comments

[urease]

Моя интуиция по этому поводу говорит, что нужно честно считать, а не гадвть.

[spamsink]

Самоубилась, значит.

[urease]

Showed a great restraint on her part

[yatur]

Моя интуиция говорит где-то 350-360. Ща пащитам.

[p2004r]

Так 374 или нет?

[spamsink]

У меня 383 получается.

[p2004r]

Да

# Начальные данные

days <- 30

floors <- numeric(days)

floors[1] <- 10

# Функция для округления с учетом правила "полуцелое до четного"

round_even <- function(x) {

if (abs(x - round(x)) == 0.5) {

return(2 * round(x / 2))

} else {

return(round(x))

}

}

# Заполнение количества этажей для каждого дня

for (day in 2:days) {

average_floors <- mean(floors[1:(day - 1)])

next_floors <- round_even(average_floors) + 1

floors[day] <- next_floors

}

# Общая сумма этажей

total_floors <- sum(floors)

total_floors

[spamsink]

Это что за язык?