Results 1 to 3 of 3
Thread: Prolog
Hybrid View
-
18th December 2011 12:48 #1Registered User
Join Date: Mar:2009
Location: Bulgaria
Posts: 32
Prolog
, , . .
, , . , , .
1. : .
2. : .
?
, , , , . , , , , , , . , , . (, ), , , ( , ). , .!5 , 4, 5, 6, 7 8 , . , .
1. 4 .
2. , -
3. , 7 .
4. 8 .
5. 5 - , .
?
"" :
.................... ..........
........4......... 5.............6..............7.......... ..8
||||
2 , 7 8 , 6 7 , 3 , 7, 8- , , 7. 5 , , 6 , - , 5 . 8 , , 6, . , , .
-
18th December 2011 12:53 #2UD3R|Q9550+1283|4x2 G.Skill@1066|MX500+1002FAEX+640AAKS+ST31 60|RX580-8GB|1841BLT|SS-760XP|Define7|z24i|Edifier S350DB
geniusloci: ) ; ) ; ) ?
nope|r.i.p.
-
18th December 2011 17:27 #3Registered User
Join Date: Mar:2009
Location: Bulgaria
Posts: 32
, .
char- den , ( ('L'), ('I'). luv ednorog - .Code:Predicates nondeterm den(string,char,char,integer) nondeterm luv(char,char) nondeterm ednorog(char,char) nondeterm luvistina nondeterm luvluje Clauses den ("Nedelq",'I','I',0). den ("Ponedelnik",'L','I',1). den ("Vtornik",'L','I',2). den ("Srqda",'L','I',3). den ("Chetvartak",'I','L',4). den ("Petak",'I','L',5). den ("Sabota",'I','L',6). luvluje:-ednorog('I','L'). ednorog('I','L'):-den(X,'L','I',A),B=A-1,den(Y,'I',_,B),write(X),nl. luvistina:-luv('I',_). luv('I','L'):- den(X,'I',_,K),T=K-1,den(Y,'L',_,T), write(X),nl. Goal luvluje.
luvistina , luvluje , , . . .
--------- 17:27 --------- : 15:58 ---------
(http://www.aswinvanwoudenberg.com/in...steins-riddle/) , .
Code:Predicates nondeterm dete(string,string,integer) nondeterm godini(integer) nondeterm ime(string) nondeterm talant(string) nondeterm it(string,string) nondeterm ig(string,integer) nondeterm tg(string,integer) Clauses godini(4). godini(5). godini(6). godini(7). godini(8). ime(ivanka). ime(stanko). ime(yoana). ime(ivan). ime(nevena). talant(piano). talant(matematika). talant(literatura). talant(kitara). talant(programist). dete(Ime,Talant,Godini):-ime(Ime),talant(Talant),godini(Godini). it(Ime,Talant):-ime(Ime),talant(Talant). ig(Ime,Godini):-ime(Ime),godini(Godini). tg(Talant,Godini):-talant(Talant),godini(Godini). Goal




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in