utils

:- module(utils, [show/1]).


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
show(EmptyBoard):-
      write('   a b c d e f g h'),nl,
      writeLine(EmptyBoard,0).

writeLine([],_).
writeLine([H|T],LineIndex) :-
      write(LineIndex),write('  '),
      writeLinePos(H),nl,
      IndexTemp is LineIndex + 1,
      writeLine(T,IndexTemp).

writeLinePos([]).
writeLinePos([H|T]) :-
      write(H),write(' '),
      writeLinePos(T).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%