Advertisement
Guest User

Untitled

a guest
Jun 24th, 2019
89
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 0.40 KB | None | 0 0
  1. digit(1).
  2. digit(2).
  3. digit(3).
  4. digit(4).
  5. digit(5).
  6. digit(6).
  7. digit(7).
  8. digit(8).
  9. digit(9).
  10.  
  11. :- use_module(library(clpfd)).
  12.  
  13. solve(A, B, C, D, E, F, G, H, I) :-
  14.     digit(A),
  15.     digit(B),
  16.     digit(C),
  17.     digit(D),
  18.     digit(E),
  19.     digit(F),
  20.     digit(G),
  21.     digit(H),
  22.     digit(I),
  23.     all_different([A,B,C,D,E,F,G,H,I]),
  24.     A + 13 * B / C + D + 12 * E - F - 11 + G * H / I - 10 == 66.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement