![Arithmetic and ListsLength of the list is recursive defined as:1. The empty list has length zero.2. A non-empty list has length 1 + len(T), where len(T) is the length of its tail.This definition is practically a Prolog program already. Here's the code we need:len([],0).len([_|T],N) :- len(T,X), N is X+1.On posing the query:?- len([a,b,c,d,e,[a,b],g],X).we get X = 7](https://image.slidesharecdn.com/arithmaticoperationsinprolog-100328215034-phpapp01/85/Prolog-Arithmetic-Operations-In-Prolog-6-320.jpg)
![We can use an accumulator to calculate the length of a list.We shall define a predicate accLen3/ which takes the following arguments.accLen(List,Acc,Length)Here List is the list whose length we want to find, and Length is its length (an integer).Acc is a variable we will use to keep track of intermediate values for length(so it will also be an integer).We can define a predicate which calls accLen for us, and gives it the initial value of 0:leng(List,Length) :- accLen(List,0,Length).So now we can pose queries like this:leng([a,b,c,d,e,[a,b],g],X).](https://image.slidesharecdn.com/arithmaticoperationsinprolog-100328215034-phpapp01/85/Prolog-Arithmetic-Operations-In-Prolog-7-320.jpg)
![We can define a predicate which takes a list of non-negative integers as its first argument, and returns the maximum integer in the list as its last argument.We can use an accumulator. As we work our way down the list, the accumulator will keep track of the highest integer found so far. If we find a higher value, the accumulator will be updated to this new value. When we call the program, we set accumulator to an initial value of 0. Here's the code. Note that there are two recursive clauses:accMax([H|T],A,Max) :-H > A,accMax(T,H,Max).accMax([H|T],A,Max) :-H =< A,accMax(T,A,Max).accMax([],A,A).](https://image.slidesharecdn.com/arithmaticoperationsinprolog-100328215034-phpapp01/85/Prolog-Arithmetic-Operations-In-Prolog-11-320.jpg)
![while going through the list to the last argument. Here's how it works:accMax([1,0,5,4],0,_5810)accMax([0,5,4],1,_5810)accMax([5,4],1,_5810)accMax([4],5,_5810)accMax([],5,_5810)accMax([],5,5)suppose we give a list of negative integers as input. Then we would haveaccMax([-11,-2,-7,-4,-12],0,Max).Max = 0 yes](https://image.slidesharecdn.com/arithmaticoperationsinprolog-100328215034-phpapp01/85/Prolog-Arithmetic-Operations-In-Prolog-13-320.jpg)
Prolog: Arithmetic Operations In Prolog
- 1. Arithmetic operations in Prolog
- 2. OVERVIEWArithmetic in PrologArithmetic and ListsComparing integersExamples
- 3. Arithmetic in PrologProlog provides a number of basic arithmetic tools for manipulating integers (that is, numbers of the form ...-3, -2, -1, 0, 1, 2, 3, 4...).Integers are useful for various tasks (such as finding the length of a list)Lets look at how Prolog handles the four basic operations of addition, multiplication, subtraction, and division.
- 5. Ex arithmetic queries:?- 8 is 6+2. yes?- 12 is 6*2. yes?- -2 is 6-8.Yes?- add_3_and_double(1,X).X = 8?- add_3_and_double(2,X).X = 10?- X is 3+2*4.X = 11
- 6. Arithmetic and ListsLength of the list is recursive defined as:1. The empty list has length zero.2. A non-empty list has length 1 + len(T), where len(T) is the length of its tail.This definition is practically a Prolog program already. Here's the code we need:len([],0).len([_|T],N) :- len(T,X), N is X+1.On posing the query:?- len([a,b,c,d,e,[a,b],g],X).we get X = 7
- 7. We can use an accumulator to calculate the length of a list.We shall define a predicate accLen3/ which takes the following arguments.accLen(List,Acc,Length)Here List is the list whose length we want to find, and Length is its length (an integer).Acc is a variable we will use to keep track of intermediate values for length(so it will also be an integer).We can define a predicate which calls accLen for us, and gives it the initial value of 0:leng(List,Length) :- accLen(List,0,Length).So now we can pose queries like this:leng([a,b,c,d,e,[a,b],g],X).
- 8. Comparing IntegersOperators that compare integers are:
- 9. Examples:2 < 4.yes2 =< 4.yes4 =< 4.yes4=:=4.yes4=\=5.yes4=\=4.no4 >= 4.yes
- 10. Examples2+1 < 4.yes2+1 < 3+2.yesNote that =:= really is different from =, as the following examples show:4=4.yes2+2 =4.no2+2 =:= 4. yes
- 11. We can define a predicate which takes a list of non-negative integers as its first argument, and returns the maximum integer in the list as its last argument.We can use an accumulator. As we work our way down the list, the accumulator will keep track of the highest integer found so far. If we find a higher value, the accumulator will be updated to this new value. When we call the program, we set accumulator to an initial value of 0. Here's the code. Note that there are two recursive clauses:accMax([H|T],A,Max) :-H > A,accMax(T,H,Max).accMax([H|T],A,Max) :-H =< A,accMax(T,A,Max).accMax([],A,A).
- 12. The first clause tests if the head of the list is larger than the largest value found so far. If it is, we set the accumulator to this new value, and then recursively work through the tail of the list.The second clause applies when the head is less than or equal to the accumulator; in this case we recursively work through the tail of the list using the old accumulator value. Finally, the base clause unifies the second and third arguments; it gives the highest value we found
- 13. while going through the list to the last argument. Here's how it works:accMax([1,0,5,4],0,_5810)accMax([0,5,4],1,_5810)accMax([5,4],1,_5810)accMax([4],5,_5810)accMax([],5,_5810)accMax([],5,5)suppose we give a list of negative integers as input. Then we would haveaccMax([-11,-2,-7,-4,-12],0,Max).Max = 0 yes
- 14. Visit more self help tutorialsPick a tutorial of your choice and browse through it at your own pace.The tutorials section is free, self-guiding and will not involve any additional support.Visit us at www.dataminingtools.net