BattleShipV2.pl

board([[0, 0, 0, 0, 0],
       [1, 1, 0, 0, 0],
       [0, 0, 0, 0, 0],
       [1, 1, 1, 1, 0],
       [0, 0, 0, 0, 0]]).

row_at(X, Row) :-
  board(Board),
  nth0(X, Board, Row).

column_at(Y, Row, Cell) :-
  nth0(Y, Row, Cell).

ship_at(X, Y) :-
  row_at(X, Row),
  column_at(Y, Row, Cell),
  Cell = 1.

hit:-
	write('hit!'), nl.

miss :-
	write('miss!'), nl.
	
bombed(X, Y) :-
	(ship_at(X, Y, _)) ->
	 write('Fuck off, u already tried it'), nl.

target(X, Y, State) :-
  (ship_at(X, Y) ->
    hit, tellkb(ship_at(X,Y,State)),write(State);
    miss).

tellkb(X):-
	asserta(X).

prompt_number(Prompt, Number) :-
  write(Prompt),
  write(': '),
  read(Number).

:- initialization(main).
main :-
 repeat,
  prompt_number('enter column number', Col),
  prompt_number('enter row number', Row),
  target(Row, Col, State),
  (ship_at(Row, Col) ->
    write('you won!'), nl, fail ;
    write('keep trying!'), nl, fail).