求助大佬们问题

投掷一个四面体的色子，请写程序模拟连续五次出现偶数点所需投掷的次数。

假设色字的数字是1，2,3,4

data = NULL

while(1 == 1)
{
        data = c(data, sample(1:4,1))
        if(length(data) >=5)
        {
                n = length(data)
                if(data[n] %in% c(2,4) & data[n-1] %in% c(2,4) & data[n-2] %in% c(2,4) & data[n-3] %in% c(2,4) & data[n-4] %in% c(2,4))
                {
                        break
                }
        }
}
length(data)


length(data) 是所需要的次数