Results 1 to 3 of 3

Thread: Prolog

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered 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, . , , .
    !

  2. #2
    System.gc()'s Avatar
    Join Date: Apr:2007
    Location: back in time
    Posts: 1,075
    .
    UD3R|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.

  3. #3
    Registered User
    Join Date: Mar:2009
    Location: Bulgaria
    Posts: 32
    , .

    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.
    char- den , ( ('L'), ('I'). luv ednorog - .
    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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |