Дорогие у меня помутнение... Вот пример функции, которая симулирует бросок

Question

Дорогие у меня помутнение... Вот пример функции, которая симулирует бросок

кубика и останавливается, если результат четный. А дальше я хочу, чтобы эта функция выполнялась в цикле, пока не выпадет что-нибудь нечетное.

my_foo <- function(x){
s <- sample(1:6, 1)
if(s %in% c(2, 4, 6)) stop("oh no... even")
rnorm(s)
}

results <- NA
set.seed(42)
while(length(results) == 1){
results <- my_foo()
}

Однако, когда функция доходит до четного, она стопится и вылетает из while... В какую сторону смотреть?

#programming #r #russian

0

15.11.2021

8 ответов

25 просмотров

Ilya Shutov

Я бы предложил делать все иначе. 1. Генерится сэмпл значений с запасом. 2. Отрезается по правилу первого четного 3. Формируется итератор и запускается в параллель. Плюсов масса. Нет бесконечного цикла, заранее известна глубина и время исполнения, можно параллелить, скорость, отсутствие постоянных проверок и обработки исключений, простота и компактность

0

15.11.2021

aGricolaMZ Автор вопроса

Ilya Shutov
Я бы предложил делать все иначе. 1. Генерится сэмп...

ну Илья, я бы конкретно эту задачу решал по-другому, я же таким образом иллюстрирую архитектуру но спасибо!

0

15.11.2021

Ilya Shutov

aGricolaMZ
ну Илья, я бы конкретно эту задачу решал по-другом...

Тогда совсем другая ситуация

0

15.11.2021