1

したがって、1 から 10 までの X と Y を使用して、値 'O' gamemap(X,Y,'O') を持つ gamemap/3 をアサートしV2=:= "O"、V 値の 1 つが 'O' でない場合、このコードでこのエラーが発生します。誰でも助けることができますか？すべてがインスタンス化されていますが、値が 'O' と異なる場合、ゲームマップ (X、Y、V) にロールバックし、おそらく値または何かを削除することをデバッガーで確認しました。これを停止するにはどうすればよいですか?値が「O」でない場合は、他の比較をチェックしてロールバックを行わないようにします。

 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)
      )
4

1 に答える 1

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")
...
于 2013-05-28T06:17:49.317 に答える