Matematické Fórum

Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.

Nástěnka
22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.

Nejste přihlášen(a). Přihlásit

#1 11. 06. 2012 23:57

Tue09
Příspěvky: 33
Reputace:   
 

Algebrogram pomocí prologu

Ahoj, snažím se vyřešit pár úloh pomocí programu SWI-Prolog. Zadání zní:
    AŽ
    DO
  AŠE
JEDE
NAŠE
-------
AUTO

Do prologu jsem zadal

alg2:-
c(Z),
c(O),O\=Z,
c(E),E\=O,E\=Z,
S1 is Z+O+E+E+E,
S1 is c(O),

c(A),A\=Z,A\=O,A\=E,
c(D),D\=E,D\=O,D\=Z,D\=A,
c(S),S\=Z,S\=O,S\=E,S\=A,S\=D,
S2 is A+D+S+D+S,
S2 is c(T),

S3 is A+E+A,
S3 is c(U),

c(J),J\=Z,J\=O,J\=E,J\=A,J\=D,J\=S,J\=T,J\=U,
c(N),N\=Z,N\=O,N\=E,N\=A,N\=D,N\=S,N\=T, N\=U, N\=J,

S4 is J+N,
S4 is c(A),

write('  ':A:Z), nl,
write('  ':D:O), nl,
write(' ':A:S:E), nl,
write(J:E:D:E), nl,
write(N:A:S:E), nl,
write(________), nl,
write(A:U:T:O),nl,
fail,

c(0).
c(1).
c(2).
c(3).
c(4).
c(5).
c(6).
c(7).
c(8).
c(9).

Ale když zadám řešení, napíše mi to pouze false, v čem je chyba?
Děkuji za každou odpověď.

Offline

 

Zápatí

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson