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 :
[sourcecode language=”r”]
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")
}
}
[/sourcecode]
Yorum