This commit is contained in:
wi11-holdsworth 2025-08-28 15:12:05 +10:00
parent 1067bfe0c2
commit 77c82024d0

View file

@ -65,11 +65,11 @@ main_diagonal([Row|Rows], Column, [D|Ds]) :-
%
% Holds when the variables in the list `Vars` can be unified
all_same([Var|Vars]) :-
all_same(Var, Vars).
all_same(Var, Vars).
all_same(Var, [Var]).
all_same(Var, [Var|Vars]) :-
all_same(Var, Vars).
all_same(Var, Vars).
%% valid(+Row)