|
|
— |
pl:prolog:pllib:crossword [2019/06/27 15:50] (aktualna) |
| ====== Crossword ====== |
| {{tag>puzzle}} |
| ===== Description ===== |
| Program creates crossword which contains abalone, abandon, anagram, connect, elegant, enhance |
| |
| {{:prolog:pllib:crossword.png|}} |
| |
| **Source**: Learn prolog now!, 2001, (course available on-line |
| |
| |
| |
| ===== Download ===== |
| Program source code: {{crossword.pl}} |
| ===== Listing ===== |
| <code prolog> |
| word(abalone,a,b,a,l,o,n,e). |
| |
| word(abandon,a,b,a,n,d,o,n). |
| |
| word(enhance,e,n,h,a,n,c,e). |
| |
| word(anagram,a,n,a,g,r,a,m). |
| |
| word(connect,c,o,n,n,e,c,t). |
| |
| word(elegant,e,l,e,g,a,n,t). |
| |
| |
| |
| crosswd(V1,V2,V3,H1,H2,H3):- |
| |
| word(V1,A,B,C,D,E,F,G), |
| |
| word(V2,A1,B1,C1,D1,E1,F1,G1), |
| |
| word(V3,A2,B2,C2,D2,E2,F2,G2), |
| |
| word(H1,A3,B,C3,B1,E3,B2,G3), |
| |
| word(H2,A4,D,C4,D1,E4,D2,G4), |
| |
| word(H3,A5,F,C5,F1,E5,F2,G5). |
| |
| |
| |
| </code> |
| ===== Comments ===== |
| |