View difference between Paste ID: QeQkquta and zd9xtdDp

 --[[
   แปลงมาจาก OX.py ในหนังสือ Artificial Intelligence
   with Machine Learning ของ รศ.ดร.ปริญญา สงวนสัตย์
 ]]
---1) แก้ครั้งที่ 1 ลืมตรวจโค้ด function all() ปัญหา checkWin() แล้วได้ false ตลอด 5-12-18 23:12
+--version 2 ปรับปรุงใหม่ให้สั้นขึ้นนิดนึง แก้ส่วน ai
---2) แก้ครั้งที่ 2
+
--- 2.1) แก้ function all() เพราะจำนวนสมาชิกใน t1 กับ t2 ไม่เท่ากัน
+  เปลี่ยน table O กับ X ให้เก็บ boolean แทนเลขช่อง
--- 2.2) เพิ่มส่วนตรวจ X ชนะกรณีที่มี criticalMove
+  แล้วเรียกใช้ index แทนเพื่อความสะดวกการใช้งาน
---3) แก้ครั้งที่ 3
+  ลดการใช้ลูปลง
--- 3.1) เอา 2.2 ออกเพิ่มการตรวจแถวที่มี X สองตำแหน่งและมีตำแหน่งว่างในแถวแทน
+
--- 3.2) เปลี่ยนจากสุ่มเลือกตำแหน่งว่างใน criticalMove เป็นเอาตำแหน่งที่ยังว่างมาใช้เลยเพราะใน criticalMove มีตำแหน่งว่างค่าเดียว
+--แก้เพิ่มเติม v1
--- 3.3) เพิ่มการแปลงค่าที่ผู้เล่นป้อนให้เป็นจำนวนเต็มด้วยการปัดเศษ
+local O = {false,false,false,false,false,false,false,false,false}
-local O, X = {}, {}
+local X = {false,false,false,false,false,false,false,false,false}
 local win = {{1,2,3},
             {4,5,6},
             {7,8,9},
             {1,4,7},
             {2,5,8},
             {3,6,9},
             {1,5,9},
             {3,5,7}}
 --[[
 เอาออก
 local map = {"[_]","[_]","[_]",
             "[_]","[_]","[_]",
             "[_]","[_]","[_]"}
---3) เพิ่มตัวย่อฟังก์ชั่นปัดเศษ
+
 local rnd = math.random
 local max = math.max
 
-  --table.sort(t1) --1) เพิ่มบรรทัดนี้ 2) แก้ออก
+--เพิ่ม function การปัดเศษ
-  local t = 0 --2 เพิ่มบรรทัดนี้ เก็บผลรวม
+
-  --for i = 1, #t1 do --1) แก้ออก
+
-    for j = 1, #t2 do
+--ทำเรียกใช้ table function สะดวกขึ้น
-    for i = 1, #t1 do --2) เพิ่มบรรทัดนี้
+local add = table.insert
-      --if t1[j] ~= t2[j] then  --1) เปลี่ยน t1[i] เป็น t1[j] 2) แก้ออก
+local unpak = table.unpack
-      if t1[i] == t2[j] then  --2) เปลี่ยน t1[j] เป็น t1[i] เปลี่ยนเป็นตรวจเท่ากัน
+local concat = table.concat
-        t = t + 1  --2) เพิ่มบรรทัดนี้ เก็บจำนวนสมาชิกที่ตรงกัน
+
-        --return false  --2) แก้ออก
+--แก้ bug ของรุ่น 1 ปรับให้สั้นลงไม่ต้องใช้ลูป
-        if t == 3 then return true end --2) เพิ่มบรรทัดนี้ ถ้าสมาชิกใน t2 (table ของแถวที่สามารถชนะ) ทุกตัว(3)เป็นสมาชิกใน t1
+
   --ให้ t1 เป็น O หรือ X
-    end  --2) เพิ่ม
+  return t1[t2[1]] and t1[t2[2]] and t1[t2[3]]
 end
-  --end --1) แก้ออก
+
-  return false --2) เปลี่ยน true เป็น false
+--แก้ให้ code สั้นลงไม่ต้องใช้ลูป
 function any(t1, t2)
   --ให้ t1 เป็น O หรือ X
   local t = 0
   --(เงื่อนไข and จริง or เท็จ) เหมือน (เงื่อนไข?จริง:เท็จ) ใน C
-  for i = 1, #t1 do
+  t = t + (t1[t2[1]] and 1 or 0)
-    for j = 1, #t2 do
+  t = t + (t1[t2[2]] and 1 or 0)
-      if t1[i] == t2[j] then
+  t = t + (t1[t2[3]] and 1 or 0)
-        t = t + 1
+  return t  --คืนค่าเป็นจำนวนของต่าที่เป็นจริงของ t1 ที่มี index เป็นสมาชิกของ t2
 end
 
 --เอาส่วนของการสุ่มเลือกใน string ออกเพราะไม่ได้ใช้
-  return t
+
   --if type(args) == "table" then
     return args[rnd(#args)]
   --elseif type(args) == "string" then
-  if type(args) == "table" then
+    --local p = rnd(#args)
     --return args:sub(p,p)
-  elseif type(args) == "string" then
+
-    local p = rnd(#args)
+
-    return args:sub(p,p)
+
 function checkWin(P)
   for _, w in pairs(win) do
     if all(P, w) then
       return true
     end
   end
   return false
 end
 
 --ลดเหลือลูปเดียวสร้าง map สด
 function displayOX()
   local newMap = {}
   for i = 1, 9, 3 do
-  local newMap = {table.unpack(map)}
+    newMap[i] = O[i] and "[O]" or (X[i] and "[X]" or "[_]")
-  if #O > 0 then
+    newMap[i+1] = O[i+1] and "[O]" or (X[i+1] and "[X]" or "[_]")
-    for o = 1, #O do
+    newMap[i+2] = O[i+2] and "[O]" or (X[i+2] and "[X]" or "[_]")
-      newMap[O[o]] = "[O]"
+
   end
 end
-  if #X > 0 then
+
-    for x = 1, #X do
+
-      newMap[X[x]] = "[X]"
+  --เปลี่ยน validMove เป็นแบบเดียวกับ O กับ X แต่เก็บค่าเริ่มต้นเป็น true
   local validMove = {true,true,true,true,true,true,true,true,true}
   for i = 1, 9 do
-  for i = 1, #newMap, 3 do
+    validMove[i] = not (O[i] or X[i]) and validMove[i]
   end
 --เพิ่ม v1 หาแถวที่มี X สองตำแหน่งและไม่มี O คืนค่าเป็นตำแหน่งที่ว่างในแถวนั้น
   for _, w in pairs(win) do
     local cX = any(X,w)
     for _, v in pairs(w) do
-  local validMove = {1,2,3,4,5,6,7,8,9}
+      if cX == 2 and validMove[v] then
-  --ลบตาเดินใน O กับ X ออกจาก validMove
+        return v
-  --0) เดิมใช้เปลี่ยนค่าใน validMove ที่ตรงกับ O และ X เป็น 0 แล้วค่อยมาลบออก
+
-  --for o = 1, #O do
+
-    --validMove[O[o]] = 0
+
 --##########
-  --for x = 1, #X do
+
-    --validMove[X[x]] = 0
+  for i, v in ipairs(validMove) do
     --validMove มีสมาชิก 9 ตัวเลยเพิ่มเงื่อนไขให้ทำเฉพาะช่องที่มีค่าเป็น true
-  --for i = #validMove, 1, -1 do
+    if v then
-    --if validMove[i] == 0 then
+      local tempX, criticalMove = {unpak(X)}, {}  --ให้ tempX เป็น clone ของ X
-      --table.remove(validMove,i)
+      tempX[i] = v                                --เพิ่มตำแหน่งเดินของ X โดยเปลี่ยน tempX[i] ด้วยค่าใน validMove[i]
       V[i], criticalMove = evalOX(O,tempX)        --หา critiMove และคำนวณทางเลือกในตาเดินต่างๆ (V[i])
       if #criticalMove > 0 then                   --ถ้า O ใกล้ชนะ (มีสองตัวในชุดใดชุดหนึ่งของ table win)
-  --0.5) ปรับเป็นรวม O กับ X เป็น moved ก่อนแล้วลบออกจาก validMove
+        --แก้ v1 เอาออกไปใช้ส่วนข้างบน
-  --เร็วขึ้นกว่าเดิมหน่อยโค้ดสั้นลงลดไปหนึ่งลูป
+        --ส่วนที่เพิ่มให้ ai ถึง O จะใกล้ชนะแต่เป็นตาของ X ถ้าเลือกแล้วชนะเกมก็ให้ใช้ค่านี้ไม่ต้องไปเลือกใน criticalMove อีก
-  local moved = {table.unpack(O)}
+        --if checkWin(tempX) then
-  for _, v in pairs(X) do
+          --return i
-    table.insert(moved,v)
+        --end
         --จบส่วนที่เพิ่ม
-  table.sort(moved, function(a,b) return a>b end)
+        --##########
-  for _, v in pairs(moved) do
+        --ส่วนข้างล่างนี้น่าจะเผื่อสำหรับตารางเกิน 3x3 หรือเปล่าเพราะ
-    table.remove(validMove,v)
+        --criticalMove จะมี O อยู่สองตำแหน่งว่างหนึ่งไม่ต้องจับใส่ list
         --แล้วสุ่มเลือกก็ได้มั๊งแต่ช่างเถอะเอาตามตัวอย่าง
-  --3) เพิ่มส่วน ai เลือกตำแหน่งว่างในแถวที่มี X อยู่สองตำแหน่ง
+        local move = {}
         for _, c in pairs(criticalMove) do
           --เปลี่ยนการตรวจสอบ validMove
-    for _, i in pairs(w) do
+          if validMove[c] then                    --ถ้าตำแหน่งใน criticalMove อยู่ในตาที่สามารถเดินได้ให้เพิ่มตำแหน่งนั้นใน move
-      for _, j in pairs(validMove) do
+            --แก้ v1 เอาออก
-        if cX == 2 and i == j then
+            --add(move,c)
-          return i
+            --แก้ v1 เปลี่ยนเป็นคืนค่าตำแหน่งที่ว่างในแถวของ criticalMove เพราะมีตัวเดียว
             return c
             --##########
           end
         end
         --แก้ v1 เอาออก
-  for _, v in pairs(validMove) do
+        --return randomChoice(move)
-    local tempX, criticalMove = {table.unpack(X)}, {}
+        --##########
-    table.insert(tempX,v)
+
-    V[v], criticalMove = evalOX(O,tempX)
+
-    if #criticalMove > 0 then
+
-      --3) เอาส่วนนี้ออก
+  --นี่เป็นส่วนคำนวณ โดยสุ่มจากตัวเลือกที่ดีที่สุด (ตำแหน่งที่มีค่ามากที่สุดใน V)
-      --2) เพิ่มส่วน ai ถึง O จะใกล้ชนะแต่เป็นตาของ X ถ้าเลือกแล้วชนะเกมก็ให้ใช้ค่านี้ไม่ต้องไปเลือกใน criticalMove อีก
+  local maxV = max(unpak(V))
-      --if checkWin(tempX) then
+
-        --return v
+
-      --end
+
-      --3) เอา move ออก
+      add(imaxV,i)
-      local move = {}
+
-      for _, i in pairs(validMove) do
+
-        for _, j in pairs(criticalMove) do
+
-          if j == i then
+
-            --3) เปลี่ยนจากเอาค่าใส่ table เป็นคืนค่านั้นกลับ
+
-            table.insert(move,j)
+
-            return j
+
   --คำนวณโอกาสในตำแหน่งเดินนั้น
   --(1 + (จำนวนรวมของ X ในทุกแถวที่ X มีโอกาสชนะ) - (จำนวนรวมของ O ในทุกแถวที่ O มีโอกาสชนะ))
   return (1 + SX - SO), criticalMove
-      --3) เอาออก
+
-      return randomChoice(move)
+
 function calSOX(o,x)
   local SO, SX = 0, 0
-  local maxV = max(table.unpack(V))
+
   for _, w in pairs(win) do
     local cO = any(o,w)          --หาจำนวนของ O ที่อยู่ใน w (table ย่อยใน Win)
     local cX = any(x,w)          --หาจำนวนของ X ที่อยู่ใน w (table ย่อยใน Win)
-      table.insert(imaxV,i)
+    if cX == 0 then              --ถ้าไม่มี X ในแถวนั้น (แปลว่ามีโอกาสที่ O จะชนะในแถวนั้น)
       SO = SO + cO               --เก็บค่าจำนวนรวมของ O ในแต่ละแถว
       if cO == 2 then            --ถ้าจำนวนของ O ในแถวนั้นเป็น 2
         print("critical", "{".. concat(w,",").."}")
         criticalMove = w         --แสดงว่าแถวนั้นเป็น critical ที่ X ต้องกันเพื่อไม่ให้ O ชนะ
       end
     end
     if cO == 0 then              --ถ้าไม่มี O ในแถวนั้น (แปลว่ามีโอกาสที่ X จะชนะในแถวนั้น)
       SX = SX + cX               --เก็บค่าจำนวนรวมของ X ในแต่ละแถว
     end
   end
   return SO, SX, criticalMove
 end
 
 while true do
-    local cO = any(o,w)
+
-    local cX = any(x,w)
+
-    if cX == 0 then
+
-      SO = SO + cO
+  local validMove = true
-      if cO == 2 then
+
-        print("critical", "{".. table.concat(w,",").."}")
+
-        criticalMove = w
+
   move = tonumber(io.read())
   print("")
-    if cO == 0 then
+
-      SX = SX + cX
+
     goto chooseAgain
   --elseif move > 9 or move < 1 then
     --goto chooseAgain
   --else
     --เพิ่มการปัดเศษทศนิยมกรณีป้อนค่าเป็นเลขทศนิยม
     --move = floor(move)
   --end
   --แก้ v1 ปัดเศษก่อนแล้วค่อยเทียบค่า
   else
     move == floor(move)
     if move > 9 or move < 1 then
       goto chooseAgain
     end
   end
   --##########
   --แก้ให้เทียบค่า O[move] แทน
   --for _, v in pairs(O) do
-  --3) เปลี่ยนให้แปลง move แป็นจำนวนเต็มด้วยการปัดเศษก่อนตรวจหาช่วงของ move
+    --if move == v then
     --if O[move] then
       --goto chooseAgain
     --end
-    move = floor(move)
+
   --แก้ให้เทียบค่า X[move] แทน
   --for _, v in pairs(X) do
     --if move == v then
     --if X[move] then
-  for _, v in pairs(O) do
+      --goto chooseAgain
-    if move == v then
+
   --end
   --แก้ v1 เอาลูปออกแล้วปรับเป็นเงื่อนไขเดียว
   if O[move] or X[move] then
-  for _, v in pairs(X) do
+
-    if move == v then
+
   --##########
   --เปลี่ยนจาก insert table O เป็นเลือกตำแหน่งที่ O[move] ให้เป็น true แทน
   O[move] = true
-  table.insert(O,move)
+
   if checkWin(O) then
     print("O win")
     break
   end
   --เปลี่ยนจากนับจำนวนสมาชิกใน O กับ X เป้นการตรวจ true/false แทนตามการเปลี่ยน O กับ X
-  if #O + #X == 9 then
+  local d = true
   for i = 1, 9 do
     d = (O[i] or X[i]) and d
   end
-  table.insert(X,ai())
+  if d then
     print("Draw")
     break
   end
   --จบส่วนที่เปลี่ยนกรณีเสมอ
   --เปลี่ยนจาก insert table X เป็นเลือกตำแหน่งที่ X[ai()] ให้เป็น true แทน
-  --2) เอาออกไม่ต้องใช้ตรวจเฉพาะในตาของ O ก็พอ
+  X[ai()] = true
   displayOX()
   if checkWin(X) then
     print("X win")
     break
   end
   --ตัดส่วนนี้ออกเพราะ O เริ่มก่อน O ลงสุดท้ายถึงจะเสมอได้ไม่ต้องตรวจหลังตาเดินของ X
   --if #O + #X == 9 then
     --print("Draw")
     --break
   --end
 end