ค่าที่ทราบสี่ค่า

counter <- 0

# Store known values 
values <- 

for(i in 1:10000){
  # Create the guess
  guess <- 
  # Check condition 
  if(___){
    counter <- counter + 1
  }
}

print(counter/10000)