Advertisement
Guest User

Untitled

a guest
Mar 26th, 2019
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.78 KB | None | 0 0
  1. /**
  2. * Warranty & Liability
  3. * To the extent permitted by applicable law and unless explicitly
  4. * otherwise agreed upon, XLOG Technologies GmbH makes no warranties
  5. * regarding the provided information. XLOG Technologies GmbH assumes
  6. * no liability that any problems might be solved with the information
  7. * provided by XLOG Technologies GmbH.
  8. *
  9. * Rights & License
  10. * All industrial property rights regarding the information - copyright
  11. * and patent rights in particular - are the sole property of XLOG
  12. * Technologies GmbH. If the company was not the originator of some
  13. * excerpts, XLOG Technologies GmbH has at least obtained the right to
  14. * reproduce, change and translate the information.
  15. *
  16. * Reproduction is restricted to the whole unaltered document. Reproduction
  17. * of the information is only allowed for non-commercial uses. Selling,
  18. * giving away or letting of the execution of the library is prohibited.
  19. * The library can be distributed as part of your applications and libraries
  20. * for execution provided this comment remains unchanged.
  21. *
  22. * Restrictions
  23. * Only to be distributed with programs that add significant and primary
  24. * functionality to the library. Not to be distributed with additional
  25. * software intended to replace any components of the library.
  26. *
  27. * Trademarks
  28. * Jekejeke is a registered trademark of XLOG Technologies GmbH.
  29. */
  30.  
  31. crossword(V1,V2,V3,H1,H2,H3):-
  32. word(H1,_,H12V12,_,H14V22,_,H16V32,_),
  33. word(H2,_,H22V14,_,H24V24,_,H26V34,_),
  34. word(H3,_,H32V16,_,H34V26,_,H36V36,_),
  35. word(V1,_,H12V12,_,H22V14,_,H32V16,_),
  36. word(V2,_,H14V22,_,H24V24,_,H34V26,_),
  37. word(V3,_,H16V32,_,H26V34,_,H36V36,_).
  38.  
  39. word(abalone,a,b,a,l,o,n,e).
  40. word(abandon,a,b,a,n,d,o,n).
  41. word(enhance,e,n,h,a,n,c,e).
  42. word(anagram,a,n,a,g,r,a,m).
  43. word(connect,c,o,n,n,e,c,t).
  44. word(elegant,e,l,e,g,a,n,t).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement