R프로그래밍 - simulation

### 동전 던지기 ====
k = 0
n = 10000

for(i in 1:n){
    u = runif(3,0,1)
    coin = as.numeric(u > 0.5)
    
    if(coin[1] == coin[2] & coin[2] == coin[3]){
        k = k + 1
    }
}
k/n


### 동전 던지기 2 ====
x = 0
n = 10000

for(i in 1:n){
    u = runif(10, 0, 1)
    coin = as.numeric(u > 0.5)
    
    for(j in 1:(length(u)-2)){
        if(coin[j] == coin[j+1] & coin[j+1] == coin[j+2]){
            x = x + 1
            break # prevent double count
        }
    }
}
x/n