# R
# Probabilidade Segmentos no Quadrado
#
# 2026 Abril Quarta~Feira, 22
# by
# j
# 

rnd <- function() {
    
    max <- 300000
    sum <- 0
    i <- 1
    while (i <= max ) {
        
        p1 <- runif(1, min=1, max=5)
        p2 <- runif(1, min=1, max=5)
        dA <- runif(1, min=0, max=100)
        dB <- runif(1, min=0, max=100)
        
        tA <- as.character(trunc(p1))
        tB <- as.character(trunc(p2))

        switch(tA,
               
            "1" = {
                    x0 <- 0
                    y0 <- dA/100
                  },
            "2" = {
                    x0 <- dA/100
                    y0 <- 1
                  },
            "3" = {
                    x0 <- 1
                    y0 <- dA/100
                  },
            "4" = {
                    x0 <- dA/100
                    y0 <- 0
                  }
         )

        switch(tB,
               
            "1" = {
                    x1 <- 0
                    y1 <- dB/100
                  },
            "2" = {
                    x1 <- dB/100
                    y1 <- 1
                  },
            "3" = {
                    x1 <- 1
                    y1 <- dB/100
                  },
            "4" = {
                    x1 <- dB/100
                    y1 <- 0
                  }
         )

         d <- sqrt( (x0-x1)^2 + (y0-y1)^2 )

         if (d > 1) {

             q <- 1
             
         }
         else {

             q <- 0
             
         }
        
         sum <- sum + q
        
         # cat(tA,x0,y0,tB,x1,y1,"\n")

         i <- i + 1
        
    }

    med <- sum / max
    
    cat('Probabilidade =',med*100,'%\n')
    
}

rnd()