-
Notifications
You must be signed in to change notification settings - Fork 22
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Original Turkish implementation of Othello
- Loading branch information
Showing
7 changed files
with
1,103 additions
and
0 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,78 @@ | ||
| //#include tr/anaTanimlar | ||
| //#include tr/eTahta | ||
| //#include tr/araYuz | ||
| //#include tr/alfabeta | ||
|
|
||
| val açıklama = <html> | ||
| <em> KojOtello'ya hoşgeldin! </em> Bu güzel oyun hakkında bilgi edinmek için | ||
| <br/> | ||
| internette "wiki reversi" diye arama yapabilirsin. | ||
| </html>.toString | ||
|
|
||
| val ay_çeşniler = ay.Salındıraç("geleneksel", "bir çeşni") | ||
| val ay_tahta = ay.Salındıraç(8, 4, 5, 6, 7, 8, 9, 10, 11, 12) | ||
| val ay_tahta2 = ay.Salındıraç(7, 8, 9, 10, 11, 12) // todo | ||
| val ay_ilk = ay.Salındıraç("Siyah", "Beyaz") | ||
| val ay_düzey = ay.Salındıraç("Er", "Çırak", "Kalfa", "Usta", "Doktor", "Deha") | ||
| val ay_bilgisayar = ay.Salındıraç( | ||
| "Oynamasın", | ||
| "Siyahları oynasın", | ||
| "Beyazları oynasın" | ||
| ) | ||
|
|
||
| def menu: Birim = { | ||
| silVeSakla | ||
| çizMerkezde(büyüt(1.8) -> | ||
| Resim.arayüz( | ||
| ay.Sütun( | ||
| ay.Sıra(ay.Tanıt(açıklama)), | ||
| ay.Sıra(ay.Tanıt("Başlangıç taşları:"), ay_çeşniler), | ||
| ay.Sıra(ay.Tanıt("Tahta:"), ay_tahta), | ||
| ay.Sıra(ay.Tanıt("Kim başlar:"), ay_ilk), | ||
| ay.Sıra(ay.Tanıt("Düzey:"), ay_düzey), | ||
| ay.Sıra(ay.Tanıt("Bilgisayar:"), ay_bilgisayar), | ||
| ay.Sıra(ay.Düğme("Oyna!") { | ||
| val odaSayısı = ay_tahta.value | ||
| val çeşni = ay_çeşniler.value match { | ||
| case "geleneksel" => 0 | ||
| case _ => 1 | ||
| } | ||
| var sorunYok = doğru | ||
| if (çeşni != 0) { | ||
| if (odaSayısı < 7) { | ||
| satıryaz("Çeşnili başlangıç taşları için 7x7 ya da daha iri bir tahta seç!") | ||
| sorunYok = yanlış | ||
| } | ||
| } | ||
| val kimBaşlar = ay_ilk.value match { | ||
| case "Siyah" => Siyah | ||
| case _ => Beyaz | ||
| } | ||
| val düzey = ay_düzey.value match { | ||
| case "Er" => Er | ||
| case "Çırak" => Çırak | ||
| case "Kalfa" => Kalfa | ||
| case "Usta" => Usta | ||
| case "Doktor" => Doktor | ||
| case "Deha" => Deha | ||
| case _ => Kalfa | ||
| } | ||
| val bilgisayar = ay_bilgisayar.value match { | ||
| case "Siyahları oynasın" => Siyah | ||
| case "Beyazları oynasın" => Beyaz | ||
| case "Oynamasın" => Yok | ||
| case _ => Yok | ||
| } | ||
| if (sorunYok) { | ||
| val tahta = new ETahta(odaSayısı, kimBaşlar, çeşni) | ||
| val bellek = new Bellek(tahta) | ||
| çıktıyıSil | ||
| ABa.ustalık(düzey) | ||
| new Arayüz(tahta, bellek, bilgisayar) | ||
| } | ||
| }) | ||
| ) | ||
| ) | ||
| ) | ||
| } | ||
| menu |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,318 @@ | ||
| //#include tr/anaTanimlar | ||
|
|
||
| object ABa { // alfa-beta arama | ||
| def hamleYap(durum: Durum): Belki[Oda] = { | ||
| var çıktı: Belki[Oda] = Hiçbiri | ||
| zamanTut(s"Alfa-beta ${düzeydenUstalığa} arama") { | ||
| çıktı = alfaBetaHamle(durum) | ||
| }("sürdü") | ||
| çıktı | ||
| } | ||
|
|
||
| def alfaBetaHamle(durum: Durum): Belki[Oda] = | ||
| if (durum.seçenekler.isEmpty) Hiçbiri | ||
| else // todo: karşı oyuncunun skorunu azaltan birden çok hamle varsa rastgele seç | ||
| Biri((for (hamle <- durum.seçenekler) yield hamle -> | ||
| abHamle(durum.oyna(hamle), aramaDerinliğiSınırı) | ||
| ).minBy(_._2)._1) | ||
|
|
||
| // todo: yasal hamle olmadığı zaman arama kısa kesilmemeli! | ||
| def abHamle(durum: Durum, derinlik: Sayı): Sayı = | ||
| if (durum.bitti || derinlik == 0 || durum.seçenekler.isEmpty) durum.skor | ||
| else azalt(durum, derinlik, Int.MinValue, Int.MaxValue) // todo | ||
|
|
||
| def azalt(durum: Durum, derinlik: Sayı, alfa: Sayı, beta: Sayı): Sayı = | ||
| if (durum.bitti || derinlik == 0 || durum.seçenekler.isEmpty) durum.skor | ||
| else { | ||
| var yeniBeta = beta | ||
| durum.seçenekler.foreach { hamle => // onun hamleleri | ||
| val yeniDurum = durum.oyna(hamle) | ||
| yeniBeta = enUfağı(yeniBeta, artır(yeniDurum, derinlik - 1, alfa, yeniBeta)) | ||
| if (alfa >= yeniBeta) return alfa | ||
| } | ||
| yeniBeta | ||
| } | ||
| def artır(durum: Durum, derinlik: Sayı, alfa: Sayı, beta: Sayı): Sayı = | ||
| if (durum.bitti || derinlik == 0 || durum.seçenekler.isEmpty) durum.skor | ||
| else { | ||
| var yeniAlfa = alfa | ||
| durum.seçenekler.foreach { hamle => | ||
| val yeniDurum = durum.oyna(hamle) | ||
| yeniAlfa = enİrisi(yeniAlfa, azalt(yeniDurum, derinlik - 1, yeniAlfa, beta)) | ||
| if (yeniAlfa >= beta) return beta | ||
| } | ||
| yeniAlfa | ||
| } | ||
|
|
||
| def ustalık(derece: Ustalık) = { | ||
| aramaDerinliğiSınırı = derece match { | ||
| case Er => 3 | ||
| case Çırak => 4 | ||
| case Kalfa => 5 | ||
| case Usta => 6 | ||
| case Doktor => 7 | ||
| case Aheste => 7 | ||
| case Deha => 8 | ||
| case ÇokSabır => 8 | ||
| case _ => 5 | ||
| } | ||
| } | ||
| def düzeydenUstalığa: Ustalık = | ||
| if (aramaDerinliğiSınırı < 3) ErdenAz | ||
| else if (aramaDerinliğiSınırı > 8) DehadanÇok | ||
| else { | ||
| aramaDerinliğiSınırı match { | ||
| case 3 => Er | ||
| case 4 => Çırak | ||
| case 5 => Kalfa | ||
| case 6 => Usta | ||
| case 7 => Doktor | ||
| case 8 => Deha | ||
| } | ||
| } | ||
| var aramaDerinliğiSınırı = 3 | ||
|
|
||
| } | ||
|
|
||
| class Durum(val tahta: Tahta, val sıra: Taş) { | ||
| val karşıTaş = if (sıra == Beyaz) Siyah else Beyaz | ||
| def skor = tahta.durum(sıra) - tahta.durum(karşıTaş) | ||
| def bitti = oyunBittiMi | ||
| def oyunBittiMi = { | ||
| if (yasallar.size > 0) yanlış else { | ||
| val yeni = new Durum(tahta, karşıTaş) | ||
| yeni.yasallar.size == 0 | ||
| } | ||
| } | ||
| def seçenekler = yasallar | ||
| def yasallar = tahta.yasallar(sıra) | ||
| def oyna(oda: Oda) = { | ||
| val yTahta = tahta.oyna(sıra, oda) | ||
| new Durum(yTahta, karşıTaş) | ||
| } | ||
| } | ||
|
|
||
| class Tahta(val tane: Sayı, val tahta: Sayılar) { | ||
| def durum(t: Taş) = { | ||
| say(t) // + 4 * isay(t)(köşeMi) + 2 * isay(t)(köşeyeİkiUzakMı) | ||
| // + isay(t)(içKöşeMi) | ||
| // - 2 * isay(t)(tuzakKöşeMi) - isay(t)(tuzakKenarMı) | ||
| // | ||
| } | ||
| def yaz(msj: Yazı = "", tab: Yazı = "") = { | ||
| for (y <- satırAralığıSondan) { | ||
| val satır = for (x <- satırAralığı) yield s2t(tahta(y * tane + x)) | ||
| satıryaz(satır.mkString(s"$tab", " ", "")) | ||
| } | ||
| if (msj.size > 0) satıryaz(msj) | ||
| satıryaz(s"$tab Beyazlar: ${say(Beyaz)} durum: ${durum(Beyaz)}") | ||
| satıryaz(s"$tab Siyahlar: ${say(Siyah)} durum: ${durum(Siyah)}") | ||
| } | ||
| def koy(oda: Oda, taş: Taş) = { | ||
| new Tahta(tane, tahta.updated(oda.y * tane + oda.x, t2s(taş))) | ||
| } | ||
| def koy(odalar: Dizi[Oda], taş: Taş) = { | ||
| var yeni = tahta | ||
| for (o <- odalar) { yeni = yeni.updated(o.y * tane + o.x, t2s(taş)) } | ||
| new Tahta(tane, yeni) | ||
| } | ||
| def taş(o: Oda): Taş = s2t(tahta(o.y * tane + o.x)) | ||
| def oyunVarMı(oyuncu: Taş) = yasallar(oyuncu).size > 0 | ||
| def yasallar(oyuncu: Taş) = { | ||
| (for (y <- satırAralığı; x <- satırAralığı if taş(Oda(y, x)) == Yok) | ||
| yield Oda(y, x)) filter { çevirilecekKomşuDiziler(oyuncu, _).size > 0 } | ||
| } | ||
| def oyna(oyuncu: Taş, oda: Oda) = { | ||
| val odalar = EsnekDizim(oda) | ||
| val karşı = if (oyuncu == Beyaz) Siyah else Beyaz | ||
| çevirilecekKomşuDiziler(oyuncu, oda).foreach { komşu => | ||
| odalar += komşu.oda | ||
| gerisi(komşu).takeWhile(taş(_) == karşı).foreach { o => odalar += o } | ||
| } | ||
| koy(odalar.dizi, oyuncu) | ||
| } | ||
|
|
||
| private def çevirilecekKomşuDiziler(oyuncu: Taş, oda: Oda): Dizi[Komşu] = | ||
| komşularıBul(oda) filter { komşu => | ||
| val karşı = if (oyuncu == Beyaz) Siyah else Beyaz | ||
| taş(komşu.oda) == karşı && sonuDaYasalMı(komşu, oyuncu)._1 | ||
| } | ||
|
|
||
| private def komşularıBul(o: Oda): Dizi[Komşu] = Dizi( | ||
| Komşu(D, Oda(o.y, o.x + 1)), Komşu(B, Oda(o.y, o.x - 1)), | ||
| Komşu(K, Oda(o.y + 1, o.x)), Komşu(G, Oda(o.y - 1, o.x)), | ||
| Komşu(KD, Oda(o.y + 1, o.x + 1)), Komşu(KB, Oda(o.y + 1, o.x - 1)), | ||
| Komşu(GD, Oda(o.y - 1, o.x + 1)), Komşu(GB, Oda(o.y - 1, o.x - 1))) filter { | ||
| k => odaMı(k.oda) | ||
| } | ||
|
|
||
| private def sonuDaYasalMı(k: Komşu, oyuncu: Taş): (İkil, Sayı) = { | ||
| val diziTaşlar = gerisi(k) | ||
| val sıraTaşlar = diziTaşlar.dropWhile { o => | ||
| taş(o) != oyuncu && taş(o) != Yok | ||
| } | ||
| if (sıraTaşlar.isEmpty) (yanlış, 0) else { | ||
| val oda = sıraTaşlar.head | ||
| (taş(oda) == oyuncu, 1 + diziTaşlar.size - sıraTaşlar.size) | ||
| } | ||
| } | ||
| private def gerisi(k: Komşu): Dizi[Oda] = { | ||
| val sıra = EsnekDizim.boş[Oda] | ||
| val (x, y) = (k.oda.x, k.oda.y) | ||
| k.yön match { | ||
| case D => for (i <- x + 1 to sonOda) /* */ sıra += Oda(y, i) | ||
| case B => for (i <- x - 1 to 0 by -1) /**/ sıra += Oda(y, i) | ||
| case K => for (i <- y + 1 to sonOda) /* */ sıra += Oda(i, x) | ||
| case G => for (i <- y - 1 to 0 by -1) /**/ sıra += Oda(i, x) | ||
| case KD => // hem y hem x artacak | ||
| if (x >= y) for (i <- x + 1 to sonOda) /* */ sıra += Oda(y + i - x, i) | ||
| else for (i <- y + 1 to sonOda) /* */ sıra += Oda(i, x + i - y) | ||
| case GB => // hem y hem x azalacak | ||
| if (x >= y) for (i <- y - 1 to 0 by -1) /* */ sıra += Oda(i, x - y + i) | ||
| else for (i <- x - 1 to 0 by -1) /* */ sıra += Oda(y - x + i, i) | ||
| case KB => // y artacak x azalacak | ||
| if (x + y >= sonOda) for (i <- y + 1 to sonOda) /**/ sıra += Oda(i, x + y - i) | ||
| else for (i <- x - 1 to 0 by -1) /* */ sıra += Oda(y + x - i, i) | ||
| case GD => // y azalacak x artacak | ||
| if (x + y >= sonOda) for (i <- x + 1 to sonOda) /**/ sıra += Oda(y + x - i, i) | ||
| else for (i <- y - 1 to 0 by -1) /* */ sıra += Oda(i, x + y - i) | ||
| } | ||
| sıra.dizi | ||
| } | ||
|
|
||
| val sonOda = tane - 1; val son = sonOda | ||
| val satırAralığı = 0 to sonOda | ||
| val satırAralığıSondan = sonOda to 0 by -1 | ||
|
|
||
| def tuzakKenarMı: Oda => İkil = { | ||
| case Oda(str, stn) => str == 1 || stn == 1 || str == sonOda - 1 || stn == sonOda - 1 | ||
| } | ||
| def tuzakKöşeMi: Oda => İkil = { | ||
| case Oda(y, x) => (x == 1 && (y == 1 || y == sonOda - 1)) || | ||
| (x == sonOda - 1 && (y == 1 || y == sonOda - 1)) | ||
| } | ||
| def köşeMi: Oda => İkil = { | ||
| case Oda(str, stn) => if (str == 0) stn == 0 || stn == sonOda else | ||
| str == sonOda && (stn == 0 || stn == sonOda) | ||
| } | ||
| def köşeyeİkiUzakMı: Oda => İkil = { | ||
| case Oda(y, x) => | ||
| ((y == 0 || y == son) && (x == 2 || x == son - 2)) || | ||
| ((y == 2 || y == son - 2) && | ||
| (x == 0 || x == 2 || x == son - 2 || x == son)) | ||
| } | ||
| def içKöşeMi: Oda => İkil = { | ||
| case Oda(y, x) => (x == 2 && (y == 2 || y == sonOda - 2)) || | ||
| (x == sonOda - 2 && (y == 2 || y == sonOda - 2)) | ||
| } | ||
| def odaMı: Oda => İkil = { | ||
| case Oda(y, x) => 0 <= y && y < tane && 0 <= x && x < tane | ||
| } | ||
| def isay(t: Taş)(iş: Oda => İkil) = (for (x <- satırAralığı; y <- satırAralığı; if taş(Oda(y, x)) == t && iş(Oda(y, x))) yield 1).size | ||
| def say(t: Taş) = isay(t) { o => doğru } | ||
|
|
||
| private def t2s(t: Taş) = t match { | ||
| case Beyaz => 1 | ||
| case Siyah => 2 | ||
| case _ => 0 | ||
| } | ||
| private def s2t(s: Sayı) = s match { | ||
| case 1 => Beyaz | ||
| case 2 => Siyah | ||
| case _ => Yok | ||
| } | ||
| } | ||
|
|
||
| def yeniTahta(tane: Sayı, çeşni: Sayı = 0): Tahta = { | ||
| var t = new Tahta(tane, Vector.fill(tane * tane)(0)) | ||
|
|
||
| def diziden(dizi: Dizi[(Sayı, Sayı)])(taş: Taş) = t = t.koy(dizi.map(p => Oda(p._1, p._2)), taş) | ||
| def dörtTane: Oda => Birim = { | ||
| case Oda(y, x) => | ||
| diziden(Dizi((y, x), (y + 1, x + 1)))(Beyaz) | ||
| diziden(Dizi((y + 1, x), (y, x + 1)))(Siyah) | ||
| } | ||
| val orta: Sayı = tane / 2 | ||
| val son = tane - 1 | ||
| çeşni match { | ||
| case 2 => // boş tahtayla oyun başlayamıyor | ||
| case 1 => | ||
| gerekli((tane > 6), "Bu çeşni için 7x7 ya da daha iri bir tahta gerekli") | ||
| dörtTane(Oda(1, 1)) | ||
| dörtTane(Oda(son - 2, son - 2)) | ||
| dörtTane(Oda(1, son - 2)) | ||
| dörtTane(Oda(son - 2, 1)) | ||
| case _ => | ||
| val çiftse = tane % 2 == 0 | ||
| if (çiftse) dörtTane(Oda(orta - 1, orta - 1)) | ||
| else { | ||
| val (a, b) = (orta - 1, orta + 1) | ||
| diziden(Dizi(a -> a, b -> b))(Beyaz) | ||
| diziden(Dizi((a, b), (b, a)))(Siyah) | ||
| if (yanlış) { // (a, b) odaları boş kalıyor her a ve b çift sayısı için | ||
| diziden(Dizi(a + 1 -> a, (b - 1, b)))(Beyaz) | ||
| diziden(Dizi((a, b - 1), (b, a + 1)))(Siyah) | ||
| } | ||
| else { | ||
| diziden(Dizi((a + 1, a), (a + 1, b), (b + 1, b - 1), (a - 1, b - 1)))(Beyaz) | ||
| diziden(Dizi((a, a + 1), (b, a + 1), (a + 1, a - 1), (a + 1, b + 1)))(Siyah) | ||
| } | ||
| } | ||
| } | ||
| t | ||
| } | ||
|
|
||
| var i = 0 | ||
| class Oyun(tane: Sayı) { | ||
| val t = yeniTahta(tane) | ||
| val durum = new Durum(t, Siyah) | ||
|
|
||
| def oyna: Durum = döngü(durum) | ||
|
|
||
| import scala.annotation.tailrec | ||
| @tailrec | ||
| private def döngü(durum: Durum): Durum = { | ||
| durum.tahta.yaz("döngü") | ||
| i += 1 | ||
| if (durum.oyunBittiMi) return durum | ||
| if (i > tane * tane) { satıryaz("çok uzadı!"); return durum } | ||
| val hamle = ABa.hamleYap(durum) match { | ||
| case Biri(oda) => oda | ||
| case _ => ABa.hamleYap(new Durum(durum.tahta, durum.karşıTaş)) match { | ||
| case Biri(oda) => oda | ||
| case _ => throw new Exception("Burada olmamalı") | ||
| } | ||
| } | ||
| val yeni = durum.oyna(hamle) | ||
| satıryaz(s"$i. hamle ${durum.sıra} $hamle:") | ||
| döngü(yeni) | ||
| } | ||
| } | ||
|
|
||
| def dene1 = { | ||
| val tane = 4 | ||
| var t = new Tahta(tane, Vector.fill(tane * tane)(0)) | ||
| satıryaz("t"); t.yaz() | ||
| val foo = t.koy(Oda(1, 1), Beyaz) | ||
| t = t.koy(Dizi(Oda(2, 2), Oda(3, 3)), Beyaz) | ||
| t = t.koy(Dizi(Oda(2, 3), Oda(3, 2)), Siyah) | ||
| val t2 = t.oyna(Siyah, Oda(1, 2)) | ||
| satıryaz("t2"); t2.yaz() | ||
| val t3 = t2.oyna(Beyaz, Oda(1, 3)) | ||
| satıryaz("t3"); t3.yaz() | ||
| satıryaz("t"); t.yaz() | ||
| foo.yaz() | ||
| } | ||
|
|
||
| def dene2 = { | ||
| çıktıyıSil | ||
| val o = new Oyun(4) | ||
| //ABa.ustalık(Çırak) | ||
| ABa.aramaDerinliğiSınırı = 2 | ||
| o.oyna | ||
| } | ||
| //dene1 | ||
| /* Bu yazılımcığı otello.kojo ve menu.kojo kullanıyor. | ||
| Onun için denemeleri artık çalıştırmıyoruz */ | ||
| //dene2 | ||
| satıryaz("arama motoru hazır") |
Oops, something went wrong.