2013-05-28 32 views
1

所以我斷言遊戲地圖/ 3的值爲'O'遊戲地圖(X,Y,'O')X和Y從1到10,錯誤代碼V2=:= "O"如果其中一個V值不是'O',任何人都可以幫忙嗎?所有東西都是實例化的,但我在調試器中看到,如果值不同於'O',它會回滾到遊戲地圖(X,Y,V)並可能刪除該值或什麼,我該怎麼做才能阻止這一點,我想要所以如果該值不是'O'來檢查其他比較不做回滾。錯誤:=:=/2:參數沒有充分實例化

Z=:=3 -> 
      (
      random_between(3,8,X), 
      random_between(3,8,Y), 
      gamemap(X,Y,V), 
      V=:="O" -> 
      (
      X1 is X-1, 
        X2 is X+1, 
       Y1 is Y-1, 
      Y2 is Y+1, 
      Y3 is Y+2, 
      Y5 is Y-2, 
      X3 is X+2, 
      X5 is X-2, 

      gamemap(X1,Y,V1), 
      gamemap(X,Y2,V2), 
      gamemap(X2,Y,V3), 
      gamemap(X,Y1,V4), 
     gamemap(X,Y3,V5), 
     gamemap(X3,Y,V7), 
     gamemap(X,Y5,V9), 
     gamemap(X5,Y,V11), 

      V2=:= "O", V5 =:="O" -> 
     (
      change_map(X,Y2,"O","X"), 
       change_map(X,Y3,"O","X") 
     ); 
     V3=:="O", V7=:="O" -> 
     (
        change_map(X2,Y,"O","X"), 
       change_map(X3,Y,"O","X") 
     ); 
     V4=:="O", V9 =:="O" -> 
     (
        change_map(X,Y1,"O","X"), 
       change_map(X,Y5,"O","X") 
     ); 
     V1=:="O", V11=:="O" -> 
     (
        change_map(X1,Y,"O","X"), 
       change_map(X5,Y,"O","X") 

     ); 
     placeship(3) 
     ); 
     placeship(3) 
    ) 

回答

0

不知道它會解決您的問題,但是您的程序縮進與您的括號使用不匹配。我會寫,遵循SWI-Prolog提出的樣式縮進IDE

( (V2=:= "O", V5 =:="O") 
-> change_map(X,Y2,"O","X"), 
    change_map(X,Y3,"O","X") 
; (V3=:="O", V7=:="O") 
-> change_map(X2,Y,"O","X") 
...