View difference between Paste ID: yqVpijYW and QeQkquta

 --[[
   แปลงมาจาก OX.py ในหนังสือ Artificial Intelligence
   with Machine Learning ของ รศ.ดร.ปริญญา สงวนสัตย์
 ]]
---version 2 ปรับปรุงใหม่ให้สั้นขึ้นนิดนึง แก้ส่วน ai
+--version 3 ใช้ penlight module ช่วยจัดการเรื่อง list และ list comprehension
 --ทำให้เขียนโค้ดสั้นลงใกล้เคียง python ต้้นฉบับมากขึ้น แต่ประสิทธิภาพยังไม่ได้ตรวจ
-  เปลี่ยน table O กับ X ให้เก็บ boolean แทนเลขช่อง
+-- #1.1 แก้ไขเปลี่ยนส่วนของ ai() และการตรวจสอบตอนผู้เล่นพิมพ์ตำแหน่ง
-  แล้วเรียกใช้ index แทนเพื่อความสะดวกการใช้งาน
+local comp = require("pl.comprehension").new()
-  ลดการใช้ลูปลง
+local ls = require("pl.List")
 local O, X = ls{}, ls{}
---แก้เพิ่มเติม v1
+
-local O = {false,false,false,false,false,false,false,false,false}
+
-local X = {false,false,false,false,false,false,false,false,false}
+
             {1,4,7},
             {2,5,8},
             {3,6,9},
             {1,5,9},
             {3,5,7}}
 local rnd = math.random
 local max = math.max
 local floor = math.floor
 local concat = table.concat
-เอาออก
+local unpack = table.unpack
-local map = {"[_]","[_]","[_]",
+
-            "[_]","[_]","[_]",
+--function all(t1, t2)
-            "[_]","[_]","[_]"}
+  --local t = true
     --for _, v in pairs(t2) do
       --t = t and t1:contains(v)
     --end
   --return t
---เพิ่ม function การปัดเศษ
+--end
 
 --function any(t1, t2)
---ทำเรียกใช้ table function สะดวกขึ้น
+  --local t = 0
-local add = table.insert
+  --for _, v in pairs(t2) do
-local unpak = table.unpack
+    --if t1:contains(v) then
       --t = t + 1
     --end
---แก้ bug ของรุ่น 1 ปรับให้สั้นลงไม่ต้องใช้ลูป
+
-function all(t1, t2)
+  --return t
-  --ให้ t1 เป็น O หรือ X
+--end
-  return t1[t2[1]] and t1[t2[2]] and t1[t2[3]]
+
 function randomChoice(args)
   return args[rnd(#args)]
---แก้ให้ code สั้นลงไม่ต้องใช้ลูป
+
-function any(t1, t2)
+
-  --ให้ t1 เป็น O หรือ X
+
-  local t = 0
+
-  --(เงื่อนไข and จริง or เท็จ) เหมือน (เงื่อนไข?จริง:เท็จ) ใน C
+    --if all(P, w) then
-  t = t + (t1[t2[1]] and 1 or 0)
+      --return true
-  t = t + (t1[t2[2]] and 1 or 0)
+
-  t = t + (t1[t2[3]] and 1 or 0)
+    local all = ls(comp "(_1):contains(v) for _,v in pairs(_2)" (P,w)):reduce(function(x,y) return x and y end)
-  return t  --คืนค่าเป็นจำนวนของต่าที่เป็นจริงของ t1 ที่มี index เป็นสมาชิกของ t2
+    if all then
       return true
     end
---เอาส่วนของการสุ่มเลือกใน string ออกเพราะไม่ได้ใช้
+
   return false
-  --if type(args) == "table" then
+
-    return args[rnd(#args)]
+
-  --elseif type(args) == "string" then
+
-    --local p = rnd(#args)
+
-    --return args:sub(p,p)
+
     newMap[i] = O:contains(i) and "[O]" or (X:contains(i) and "[X]" or "[_]")
     newMap[i+1] = O:contains(i+1) and "[O]" or (X:contains(i+1) and "[X]" or "[_]")
     newMap[i+2] = O:contains(i+2) and "[O]" or (X:contains(i+2) and "[X]" or "[_]")
     print(newMap[i]..newMap[i+1]..newMap[i+2])
   end
-    if all(P, w) then
+
 
 function ai()
   local validMove = ls.range(1,9)
   local moved = O:clone():extend(X)
   for _, v in pairs(moved) do
     validMove:remove_value(v)
---ลดเหลือลูปเดียวสร้าง map สด
+
   -- #1.1 แก้ไขตรวจหาแถวที่มี X สองตำแหน่งและไม่มี O ให้เลือกตำแหน่งที่ว่างในแถวนั้น
   for _, w in pairs(win) do
     local xl = ls(comp "(_1):contains(v) for _,v in pairs(_2)" (X,w))
-    newMap[i] = O[i] and "[O]" or (X[i] and "[X]" or "[_]")
+    local vl = ls(comp "(_1):contains(v) for _,v in pairs(_2)" (validMove,w))
-    newMap[i+1] = O[i+1] and "[O]" or (X[i+1] and "[X]" or "[_]")
+    if xl:count(true)==2 and vl:reduce(function(x,y) return x or y end) then
-    newMap[i+2] = O[i+2] and "[O]" or (X[i+2] and "[X]" or "[_]")
+      return comp "v for _,v in pairs(_1) if (_2):contains(v)"(w,validMove)[1]
     end
   end
   --##########
   local V = {-100,-100,-100,-100,-100,-100,-100,-100,-100}
   for _, v in pairs(validMove) do
-  --เปลี่ยน validMove เป็นแบบเดียวกับ O กับ X แต่เก็บค่าเริ่มต้นเป็น true
+    local tempX, criticalMove = X:clone(), {}
-  local validMove = {true,true,true,true,true,true,true,true,true}
+    tempX:append(v)
-  for i = 1, 9 do
+    V[v], criticalMove = evalOX(O,tempX)
-    validMove[i] = not (O[i] or X[i]) and validMove[i]
+    if #criticalMove > 0 then
       -- #1.1 เอาออก
---เพิ่ม v1 หาแถวที่มี X สองตำแหน่งและไม่มี O คืนค่าเป็นตำแหน่งที่ว่างในแถวนั้น
+      --if checkWin(tempX) then
         --return v
-    local cX = any(X,w)
+      --end
-    for _, v in pairs(w) do
+      --##########
-      if cX == 2 and validMove[v] then
+      -- #1.1 เปลี่ยนจากใช้ลูปเป็น list comprehention แทนและ return ค่าเดียวไม่ต้องใส่ table แล้วสุ่มเลือก
-        return v
+      --local move = ls{}
       --for _, i in pairs(criticalMove) do
         --if validMove:contains(i) then
           --move:append(i)
---##########
+
       --end
-  for i, v in ipairs(validMove) do
+      --return randomChoice(move)
-    --validMove มีสมาชิก 9 ตัวเลยเพิ่มเงื่อนไขให้ทำเฉพาะช่องที่มีค่าเป็น true
+      --##########
-    if v then
+      return comp "v for _,v in pairs(_1) if (_2):contains(v)" (criticalMove,validMove)[1]
-      local tempX, criticalMove = {unpak(X)}, {}  --ให้ tempX เป็น clone ของ X
+
-      tempX[i] = v                                --เพิ่มตำแหน่งเดินของ X โดยเปลี่ยน tempX[i] ด้วยค่าใน validMove[i]
+
-      V[i], criticalMove = evalOX(O,tempX)        --หา critiMove และคำนวณทางเลือกในตาเดินต่างๆ (V[i])
+  local maxV = max(unpack(V))
-      if #criticalMove > 0 then                   --ถ้า O ใกล้ชนะ (มีสองตัวในชุดใดชุดหนึ่งของ table win)
+  --local imaxV = ls{}
-        --แก้ v1 เอาออกไปใช้ส่วนข้างบน
+  --for i, v in pairs(V) do
-        --ส่วนที่เพิ่มให้ ai ถึง O จะใกล้ชนะแต่เป็นตาของ X ถ้าเลือกแล้วชนะเกมก็ให้ใช้ค่านี้ไม่ต้องไปเลือกใน criticalMove อีก
+    --if v == maxV then
-        --if checkWin(tempX) then
+      --imaxV:append(i)
-          --return i
+
   --end
-        --จบส่วนที่เพิ่ม
+  local imaxV = comp "i for i,v in pairs(_1) if v == (_2)" (V,maxV)
-        --##########
+
-        --ส่วนข้างล่างนี้น่าจะเผื่อสำหรับตารางเกิน 3x3 หรือเปล่าเพราะ
+
-        --criticalMove จะมี O อยู่สองตำแหน่งว่างหนึ่งไม่ต้องจับใส่ list
+
-        --แล้วสุ่มเลือกก็ได้มั๊งแต่ช่างเถอะเอาตามตัวอย่าง
+
-        local move = {}
+  local SO, SX, criticalMove = calSOX(o,x)
-        for _, c in pairs(criticalMove) do
+
-          --เปลี่ยนการตรวจสอบ validMove
+
-          if validMove[c] then                    --ถ้าตำแหน่งใน criticalMove อยู่ในตาที่สามารถเดินได้ให้เพิ่มตำแหน่งนั้นใน move
+
-            --แก้ v1 เอาออก
+
-            --add(move,c)
+
-            --แก้ v1 เปลี่ยนเป็นคืนค่าตำแหน่งที่ว่างในแถวของ criticalMove เพราะมีตัวเดียว
+
-            return c
+
-            --##########
+    --local cO = any(o,w)
-          end
+    --local cX = any(x,w)
-        end
+    local cO = ls(comp "(_1):contains(v) for _,v in pairs(_2)" (o,w))
-        --แก้ v1 เอาออก
+    local cX = ls(comp "(_1):contains(v) for _,v in pairs(_2)" (x,w))
-        --return randomChoice(move)
+    if not cX:reduce(function(x,y) return x or y end) then
-        --##########
+      local nO = cO:count(true)
       SO = SO + nO
       if nO == 2 then
         print("critical", "{".. concat(w,",").."}")
-  --นี่เป็นส่วนคำนวณ โดยสุ่มจากตัวเลือกที่ดีที่สุด (ตำแหน่งที่มีค่ามากที่สุดใน V)
+        criticalMove = w
-  local maxV = max(unpak(V))
+
-  local imaxV = {}
+
-  for i, v in pairs(V) do
+    if not cO:reduce(function(x,y) return x or y end) then
-    if v == maxV then
+      SX = SX + cX:count(true)
-      add(imaxV,i)
+
   end
   return SO, SX, criticalMove
 end
 
 while true do
   io.write("Choose position [1-9]: ")
-  local SO, SX, criticalMove =calSOX(o,x)
+
-  --คำนวณโอกาสในตำแหน่งเดินนั้น
+
-  --(1 + (จำนวนรวมของ X ในทุกแถวที่ X มีโอกาสชนะ) - (จำนวนรวมของ O ในทุกแถวที่ O มีโอกาสชนะ))
+
   ::chooseAgain::
   io.write("Bad move: choose position [1-9]: ")
   move = tonumber(io.read())
   print("")
   ::checkMove::
   if not move then
     goto chooseAgain
-    local cO = any(o,w)          --หาจำนวนของ O ที่อยู่ใน w (table ย่อยใน Win)
+  -- #1.1 เอาออก
-    local cX = any(x,w)          --หาจำนวนของ X ที่อยู่ใน w (table ย่อยใน Win)
+
-    if cX == 0 then              --ถ้าไม่มี X ในแถวนั้น (แปลว่ามีโอกาสที่ O จะชนะในแถวนั้น)
+
-      SO = SO + cO               --เก็บค่าจำนวนรวมของ O ในแต่ละแถว
+
-      if cO == 2 then            --ถ้าจำนวนของ O ในแถวนั้นเป็น 2
+
     move = floor(move)
-        criticalMove = w         --แสดงว่าแถวนั้นเป็น critical ที่ X ต้องกันเพื่อไม่ให้ O ชนะ
+    -- #1.1 ย้ายมาตรวจหลังจากปัดเศษแล้ว
     if move > 9 or move < 1 then
       goto chooseAgain
-    if cO == 0 then              --ถ้าไม่มี O ในแถวนั้น (แปลว่ามีโอกาสที่ X จะชนะในแถวนั้น)
+
-      SX = SX + cX               --เก็บค่าจำนวนรวมของ X ในแต่ละแถว
+    --##########
   end
   if O:contains(move) or X:contains(move) then
     goto chooseAgain
   end
   O:append(move)
   displayOX()
   if checkWin(O) then
     print("O win")
     break
-  local validMove = true
+
   if #O + #X == 9 then
     print("Draw")
     break
   end
   X:append(ai())
   displayOX()
   if checkWin(X) then
     print("X win")
     break
   end
-  --else
+