actually generate solutions
This commit is contained in:
parent
a568d59ce6
commit
15c51a8637
1 changed files with 5 additions and 4 deletions
9
main.pl
9
main.pl
|
|
@ -18,10 +18,11 @@ puzzle_solution(Puzzle) :-
|
|||
|
||||
%% valid(+Row)
|
||||
%
|
||||
valid_row([Head|Tail]) :-
|
||||
Tail ins 1..9,
|
||||
all_distinct(Tail),
|
||||
valid_head(Head, Tail).
|
||||
valid_row([Head|Row]) :-
|
||||
Row ins 1..9,
|
||||
all_distinct(Row),
|
||||
valid_head(Head, Row),
|
||||
label(Row).
|
||||
|
||||
|
||||
%% valid_head(+Head, +Tail)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue