will-holdsworth/comp30002-project-1
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

reformat to keep lines under 80 chrs

Browse source
This commit is contained in:
wi11-holdsworth 2025-08-28 16:08:38 +10:00
parent 42694f7e6e
commit 079cffdada
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
main.pl
View file

@ -3,12 +3,13 @@
% Implements puzzle_solution/1 which solves incomplete proper math puzzles and % Implements puzzle_solution/1 which solves incomplete proper math puzzles and
% validates complete proper math puzzles. % validates complete proper math puzzles.
% %
% A math puzzle is a matrix with a size between 2 and 4. The first row and first % A math puzzle is a matrix with a size between 2 and 4. The first row and
% column of the puzzle are reserved for totals, which should always be ground. A % first column of the puzzle are reserved for totals, which should always be
% total is either the sum or the product of its respective row/column. The top % ground. A total is either the sum or the product of its respective
% and left corner can be ignored. A puzzle can be incomplete, partially % row/column. The top and left corner can be ignored. A puzzle can be
% complete, or complete. An incomplete/partially complete puzzle should have % incomplete, partially complete, or complete. An incomplete/partially
% "_" where the cell is empty. A proper math puzzle has at most one solution. % complete puzzle should have "_" where the cell is empty. A proper math
% puzzle has at most one solution.
% %
% We approach puzzle validation via the clpfd library. We apply constraints to % We approach puzzle validation via the clpfd library. We apply constraints to
% the puzzle in order of restrictiveness. % the puzzle in order of restrictiveness.
@ -80,7 +81,7 @@ all_same([Head,Head|Tail]) :-
% A row is valid when: % A row is valid when:
% 1. All elements except the head are integers from 1 to 9 (inclusive) % 1. All elements except the head are integers from 1 to 9 (inclusive)
% 2. All elements except the head are distinct % 2. All elements except the head are distinct
% 3. The head of the row is either the sum or the product of the tail of `Row` % 3. The head of `Row` is either the sum or the product of the tail of `Row`
valid_row([Total|Vars]) :- valid_row([Total|Vars]) :-
Vars ins 1..9, Vars ins 1..9,