sudoku and fizzbuzz

prolog/fizzbuzz.pl

@@ -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.
+
+

prolog/sudoku.pl

@@ -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]).