Chúng ta đang muốn điều hướng User_Move ở bước đi tiếp theo tránh khỏi các bước tiên đoán được là sẽ tạo ra Double_Threat. Vì vậy nên sau khi kiểm tra thấy có nhiều Double_Threat từ User thì lúc này chúng ta bắt đầu thực hiện logic tiên đoán các bước tạo Double_Threat để tránh điều hướng nhầm.
Get_Double_Threats;
Và ở đây chúng ta nhắc lại Double_Threat là một bước đi tiên đoán sẽ tạo ra nhiều Direct_Threat. Như vậy trong Get_Double_Threats; chúng ta sẽ cần giả định từng bước đi tiếp theo của User để tạo ra các phiên bản trạng thái Foreseen_App_State rồi kiểm tra số lượng nguy cơ trực tiếp Count_Direct_Threats; được tạo ra.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | with Ada.Text_IO; use Ada.Text_IO; package body AI_Mockup is -- ... procedure Redirect_User_Concern ( Computer_Move : in out Digit ; App_State : in State ) is -- local Foreseen_User_Moves : Digit_Array; begin if Count_Double_Threats (App_State) > 1 then Put_Line ("Double_Threats : " & Integer'Image (Count_Double_Threats (App_State))); -- Foreseen_User_Moves := (others => 0); Get_Double_Threats (Foreseen_User_Moves, App_State); Put_Line ("Foreseen_User_Moves : " & Digit_Array'Image (Foreseen_User_Moves)); end if; end Redirect_User_Concern; -- ... procedure Get_Double_Threats ( User_Moves : in out Digit_Array ; App_State : in State ) is -- local Foreseen_Move : Digit := 0; Foreseen_App_State : State; begin for Index in App_State.Common_Set'Range loop if App_State.Common_Set (Index) /= 0 then Foreseen_Move := App_State.Common_Set (Index); Copy (Foreseen_App_State, App_State); Update_User_Set (Foreseen_App_State, Foreseen_Move); -- if Count_Direct_Threats (Foreseen_App_State) > 1 then User_Moves (Index) := Foreseen_Move; end if; end if; end loop; end Get_Double_Threats; end AI_Mockup; |
Lần này chúng ta sẽ kiểm tra trường hợp User lấy trước ô trung tâm và góc đối diện với bước đi đầu tiên của Computer mà chúng ta đã chạy thử trước đó để xem tập kết quả tiên đoán các bước đi tiếp theo mà User đang hướng đến để tạo Double_Threat.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 | alr run Choose your Symbol ... 1. Letter 'X' 2. Letter 'O' Your choice: 1 You've chosen: X + - - + - - + - - + | 2 | 9 | 4 | + - - + - - + - - + | 7 | 5 | 3 | + - - + - - + - - + | 6 | 1 | 8 | + - - + - - + - - + Your move: 5 PLAYING ... + - - + - - + - - + | 2 | 9 | 4 | + - - + - - + - - + | 7 | X | 3 | + - - + - - + - - + | 6 | 1 | 8 | + - - + - - + - - + Computer move: 2 PLAYING ... + - - + - - + - - + | O | 9 | 4 | + - - + - - + - - + | 7 | X | 3 | + - - + - - + - - + | 6 | 1 | 8 | + - - + - - + - - + Your move: 8 PLAYING ... + - - + - - + - - + + - - + - - + - - + | O | 9 | 4 | => | O | | ? | + - - + - - + - - + + - - + - - + - - + | 7 | X | 3 | => | | X | ? | + - - + - - + - - + + - - + - - + - - + | 6 | 1 | X | => | ? | ? | X | + - - + - - + - - + + - - + - - + - - + Double_Threats : 4 Foreseen_User_Moves : [ 1, 0, 3, 4, 0, 6, 0, 0, 0] Computer move: _ |
Bây giờ thì chúng ta cần tính toán các bước đi mà Computer có thể thực hiện ngay để khởi tạo Direct_Chance và khiến cho User phải tạm dừng kế hoạch tạo Double_Threat.
Get_Direct_Chance_Inits;
Lúc này logic xử lý sau khi lặp qua các ô trống còn lại trong Common_Set để tạo ra các trạng thái tiên đoán Forseen_App_State thì chúng ta cần đếm số lượng cơ hội thắng trực tiếp Count_Direct_Chances; của Computer thay vì nguy cơ trực tiếp Count_Direct_Threats; từ User.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | with Ada.Text_IO; use Ada.Text_IO; package body AI_Mockup is -- ... procedure Redirect_User_Concern ( Computer_Move : in out Digit ; App_State : in State ) is -- local Foreseen_User_Moves : Digit_Array; Foreseen_Computer_Moves : Digit_Array; begin if Count_Double_Threats (App_State) > 1 then Put_Line ("Double_Threats : " & Integer'Image (Count_Double_Threats (App_State))); -- Foreseen_User_Moves := (others => 0); Get_Double_Threats (Foreseen_User_Moves, App_State); Put_Line ("Foreseen_User_Moves : " & Digit_Array'Image (Foreseen_User_Moves)); -- Foreseen_Computer_Moves := (others => 0); Get_Direct_Chance_Inits (Foreseen_Computer_Moves, App_State); Put_Line ("Foreseen_Computer_Moves : " & Digit_Array'Image (Foreseen_Computer_Moves)); end if; end Redirect_User_Concern; -- ... procedure Get_Direct_Chance_Inits ( Computer_Moves : in out Digit_Array ; App_State : in State ) is -- local Foreseen_Move : Digit := 0; Foreseen_App_State : State; begin for Index in App_State.Common_Set'Range loop if App_State.Common_Set (Index) /= 0 then Foreseen_Move := App_State.Common_Set (Index); Copy (Foreseen_App_State, App_State); Update_Computer_Set (Foreseen_App_State, Foreseen_Move); -- if Count_Direct_Chances (Foreseen_App_State) > 0 then Computer_Moves (Index) := Foreseen_Move; end if; end if; end loop; end Get_Direct_Chance_Inits; -- ... -- function Count_Double_Threats ... function Count_Direct_Chances (App_State : State) return Integer is -- local Foreseen_Computer_Move : Digit := 0; Foreseen_App_State : State; Counter : Integer := 0; begin for Index in App_State.Common_Set'Range loop if App_State.Common_Set (Index) /= 0 then Foreseen_Computer_Move := App_State.Common_Set (Index); Copy (Foreseen_App_State, App_State); Update_Computer_Set (Foreseen_App_State, Foreseen_Computer_Move); -- if Found_Winning (Foreseen_App_State.Computer_Set) then Counter := Counter + 1; end if; end if; end loop; -- return Counter; end Count_Direct_Chances; end AI_Mockup; |
Lần này chúng ta sẽ chạy thử với trường hợp User lấy trước các góc đối diện và để Computer lấy ô trung tâm để xem các khả năng còn lại mà Computer có thể tạo Direct_Chance.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | alr run Choose your Symbol ... 1. Letter 'X' 2. Letter 'O' Your choice: 1 You've chosen: X + - - + - - + - - + | 2 | 9 | 4 | + - - + - - + - - + | 7 | 5 | 3 | + - - + - - + - - + | 6 | 1 | 8 | + - - + - - + - - + Your move: 6 PLAYING ... + - - + - - + - - + | 2 | 9 | 4 | + - - + - - + - - + | 7 | 5 | 3 | + - - + - - + - - + | X | 1 | 8 | + - - + - - + - - + Computer move: 5 PLAYING ... + - - + - - + - - + | 2 | 9 | 4 | + - - + - - + - - + | 7 | O | 3 | + - - + - - + - - + | X | 1 | 8 | + - - + - - + - - + Your move: 4 PLAYING ... + - - + - - + - - + + - - + - - + - - + | 2 | 9 | X | => | | | X | + - - + - - + - - + + - - + - - + - - + | 7 | O | 3 | => | | O | | + - - + - - + - - + + - - + - - + - - + | X | 1 | 8 | => | X | | | + - - + - - + - - + + - - + - - + - - + Double_Threats : 2 Foreseen_User_Moves : [ 0, 2, 0, 0, 0, 0, 0, 8, 0] Foreseen_Computer_Moves : [ 1, 2, 3, 0, 0, 0, 7, 8, 9] Computer move: _ |
Oh, chúng ta đang có tất cả các ô trống còn lại trên bàn cờ đều là các bước đi mà Computer có thể chọn để tạo Direct_Chance. Bây giờ việc còn lại là chúng ta cần phải lấy ra từng giá trị này để tiếp tục tiên đoán giá trị Direct_Chance tương ứng, sau đó kiểm tra để chọn ra một trường hợp mà Direct_Chance mà User cần phải chọn vào để chặn lại sẽ không trùng hợp với mục đích tạo Double_Chance.
[Procedural Programming + Ada] Bài 27 – Console Tic-Tac-Toe App (kết thúc)