R Dili ile Sayı Tahmin Etme Oyunu

Merhabalar, evet epeydir yazmıyor/çizmiyordum. Her blogundan uzaklaşan blogger gibi evet pek yakında buraya geri dönüş yapacağım diyor ve bunun havada kalmamasını diliyorum.

Bugün ki konumuz bu blogu açma sebeplerimden 2. olan r dili ile alakadar ufak programcıklar yazmak/tanıtmak.
Bu yazıda bilgisayarımız 1 ile 100 arasında bir sayı tutuyor ve biz bu sayıyı tahmin etmeye çalışıyoruz. Basit-vakit öldürücü- yerine göre eğlenceli ama en önemlisi algoritma geliştirmede ilk adımlardan birisi.

Lafı fazla uzatmadan programımıza geçelim :

sayiokuma <- function()
{ 
  n <- readline(prompt="Bir değer girin: ")
  if(!grepl("^[0-9]+$",n))
  {
    return(sayiokuma())
  }
  return(as.integer(n))
}

# olay burada başlıyor

num <- round(runif(1) * 100, digits = 0)
tahmin <- -1

cat("tahmin a number between 0 and 100.\n")

while(tahmin != num)
{ 
  tahmin <- sayiokuma()
  if (tahmin == num)
  {
    cat("Tebrikler,", num, "sayısı doğru tahmin.\n")
  }
  else if (tahmin < num)
  {
    cat("Daha büyük bir tahminde bulunun\n")
  }
  else if(tahmin > num)
  {
    cat("Daha küçük bir tahminde bulunun\n")
  }
}