a <- function(x,y){
  return((x*x) + (3*x*y) - (y*y))
}
#-8 <= x <= 8
#-5 <= y  <= 5


i <- -8
j <- -5

res <- a(i,j)

#for (x in (-8:8)){
#  for (y in (-5:5)){
 #   if (res <= a(x,y)){
#      res <- a(x,y)
 #     i <- x
  #    j <- y
 #   print(a(x,y))
 #   }

#  }
#}
#print(paste(res,i,j),quote = F)
#print(a(0,0))

#Questao 2:
  
 # parte 1 (1 repetição): Um número inteiro positivo é dito primo se for dividível apenas por 1 e ele mesmo. Faça1 programa em R que dado 1 número inteiro, determinar se ele é primo ou não.
#parte 2 (repetição dentro de repetição): Dado n e 1 sequência de n números inteiros positivos, calcule a soma dos números primos na sequência. 


eh_primo <- function(x){
  if (x == 2){
    return(T)
  }
  primo <- T
  y <- x-1
  for (i in (2:y)){
    if ((x %% i) == 0 ){
      primo = F
    }
  }
  return(primo)
}
#print(eh_primo(2))



soma_de_primos <- function(n){
  soma <- 0
  for (x in (2:n)){
    if (eh_primo(x)){
      soma <- soma + x
    }
  }
  return(soma)
}

#print(soma_de_primos(13))

somadeprimos <- function(n){
  soma<-0
  for(x in(2:n)){
    if (eh_primo(x)){            #Se (x é primo) faça {}
      soma<-soma+x
    }
  }
  return(soma)
}


#m<-as.numeric(readline("Digite o tamanho da sequencia: "))
#print(somadeprimos(m))




#print(paste("arroz","feijao") , quote = F)



                              # -2<=x<=2
                              # -2<=y<=2          x²+y² <= 1


bom_de_mira <- function(x,y){
  bom <- F
  if (x**2 + y**2 <= 1){
      bom <- T 
  }
  return(bom)
}


print(bom_de_mira(0.00001,1))

for (i in (1:1000)){
  
  
  x <- runif(1)
  y <- runif(1)
  
  
  
  if(bom_de_mira(x,y)){
    print(paste("o tiro de coordenadas",x,y,"acertou",bom_de_mira(x,y)))
  }
}