parent
02a2db3261
commit
0cbb46560b
@ -0,0 +1,10 @@
|
|||||||
|
isfizz(N) :- mod(3, N) =:= 0.
|
||||||
|
isbuzz(N) :- mod(5, N) =:= 0.
|
||||||
|
isfizzbuzz(N) :- mod(15, N) =:= 0.
|
||||||
|
|
||||||
|
dofizzbuzz(N, F) :- isfizzbuzz(N), F = fizbuzz.
|
||||||
|
dofizzbuzz(N, F) :- isbuzz(N), F = buzz.
|
||||||
|
dofizzbuzz(N, F) :- isfizz(N), F = fizz.
|
||||||
|
dofizzbuzz(N, F) :- F = N.
|
||||||
|
|
||||||
|
|
@ -0,0 +1,21 @@
|
|||||||
|
sudoku(Puzzle, Solution) :-
|
||||||
|
Solution = Puzzle,
|
||||||
|
Puzzle = [A1, A2, A3, A4,
|
||||||
|
B1, B2, B3, B4,
|
||||||
|
C1, C2, C3, C4,
|
||||||
|
D1, D2, D3, D4],
|
||||||
|
fd_domain(Puzzle, 1, 4),
|
||||||
|
fd_all_different([A1, A2, A3, A4]),
|
||||||
|
fd_all_different([B1, B2, B3, B4]),
|
||||||
|
fd_all_different([C1, C2, C3, C4]),
|
||||||
|
fd_all_different([D1, D2, D3, D4]),
|
||||||
|
|
||||||
|
fd_all_different([A1, B1, C1, D1]),
|
||||||
|
fd_all_different([A2, B2, C2, D2]),
|
||||||
|
fd_all_different([A3, B3, C3, D3]),
|
||||||
|
fd_all_different([A4, B4, C4, D4]),
|
||||||
|
|
||||||
|
fd_all_different([A1, A2, B1, B2]),
|
||||||
|
fd_all_different([A3, A4, B3, B4]),
|
||||||
|
fd_all_different([C1, C2, D1, D2]),
|
||||||
|
fd_all_different([C3, C4, D3, D4]).
|
Loading…
Reference in new issue