% lights_out_interactive.pl

:- module(lights_out_interactive, [
                   read_and_write_solution/2,
                   play/2
                  ]).

:- use_module(lights_out_board).
:- use_module(lights_out_io).
:- use_module(combinations).
:- use_module(lights_out_solver).

read_and_solve(W, H, Ms) :-
    read_board(W, H, B),
    solve(B, Ms).

read_and_write_solution(W, H) :-
    read_and_solve(W, H, Ms), !,
    write_solution(Ms).

play(W, H) :- read_and_write_solution(W, H).