Artificial Intelligence tutorial 7



a.     Write a program to split the list on the basis of a given integer into greater and smaller number.



domains
     numlist = integer*
predicates
     go(numlist,numlist,numlist)
     list_split(integer,numlist,numlist,numlist)
clauses
     go(InpL,SL,GL):-  
          write("Enter pivot number : "),
          readint(Num),
          list_split(Num,InpL,SL,GL).
    
     list_split(Num,[],[],[]).
    
     list_split(Num,[Head|Tail1],[Head|Tail2],GL):-
          Num <= Head,
          list_split(Num,Tail1,Tail2,GL).
    
     list_split(Num,[Head|Tail1],SL,[Head|Tail2]):-
          Num > Head,
          list_split(Num,Tail1,SL,Tail2).



b.     Write a program to substitute an element in the list by a given another element.

domains
     numlist = integer*

predicates
     go(numlist,numlist)
     list_sub(integer,integer,numlist,numlist)

clauses
     go(InL,OutL):-
          write("Enter element to use : "),
          readint(Num),
          write("Enter element to replace : "),
          readint(NumRep),
          list_sub(Num,NumRep,InL,OutL).
    
     list_sub(Num,NumRep,[],[]).
    
     list_sub(Num,NumRep,[Head1|Tail1],[Num|Tail2]):-
          NumRep = Head1,
          list_sub(Num,NumRep,Tail1,Tail2).
    
     list_sub(Num,NumRep,[Head1|Tail1],[Head1|Tail2]):-
          NumRep <> Head1,
          list_sub(Num,NumRep,Tail1,Tail2).

c.     Write a program to separate the odd-even number form the given list.

domains
     numlist = integer*

predicates
    
     list_oddeven(numlist,numlist,numlist)

clauses
         
     list_oddeven([],Odd,Even).
    
     list_oddeven([H|T],[H|Odd],Even):-
          N = H mod 2,
          N <> 0,
          list_oddeven(T,Odd,Even).
    
     list_oddeven([H|T],Odd,[H|Even]):-
          N = H mod 2,
          N = 0,
          list_oddeven(T,Odd,Even).



          >>DOwnload Word File<<

Related Posts Plugin for WordPress, Blogger...

Engineering material

GTU IDP/ UDP PROJECT

GTU IDP/ UDP PROJECT

Patel free software download

  © Blogger templates The Professional Template by Ourblogtemplates.com 2008

Back to TOP