Contact US

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Arithmatic on Lists

Arithmatic on Lists

Arithmatic on Lists

This may be a simple problem but I am completely new to prolog.

I am attempting to generate a predicate minus(A,B) where A is an initial state in a list [7,3,12,1] and B is what i am attemping to get to. So minus[7,3] would be acceptable. however i can only minus the numbers 4 and 2 so [7,4] is not acceptable. Could someone please help with how i could do this. Thank you all!  

RE: Arithmatic on Lists

I don't understand what your attempting.

You want:

Where both A and B are lists? And then it prints out what you would have to take away from A to get to B?

RE: Arithmatic on Lists

Sorry after reading it again its not clear at all.

If I state 1 bit it might be easier.

I have a list [9,8,7,3] or along those lines.

I need a predicate minus(A,B) which will list the moves possible. The only moves can be to subtract 4 or 2 so i would get the answer

A = 9 B = 5 ;
A = 9 B = 7 ;
A = 8 B = 4 ;
A = 8 B = 6 ;
A = 3 B = 1;

I can't seem to figure our the predicate.

Thanks you the quick reply


RE: Arithmatic on Lists

You can use a predicate with 3 args to tackle the problem more broadly.

minus(+FirstList, +ListOfNumbersToSubstract, -ListResult).

For each number of FirstList, you add all the numbers get with ListOfNumberstoSubstract to ListResult.

RE: Arithmatic on Lists

Is there anyway to use only 2 arguments?  

RE: Arithmatic on Lists

Yes : minus(+FirstList, -ListResult).

RE: Arithmatic on Lists

Thanks for your help. So far I have

minus(X,Y) :- Y > X, fail.
minus(X,Y) :- Y is X-1;
minus(X,Y) :- Y is X-2;
minus(X,Y) :- Y is X-3.

but I'm not sure how to implement this using a list of numbers. I have a list [9,8,7,3] and I want to see all the moves available if minus is a move. I think it has to be done recursively but how would I go about this? Thanks

RE: Arithmatic on Lists

I'm no sure to really understand what you need, but I give you two ways to do that :
minus1 which writes the answer on the console and minus2 which memorize the answer in a list.


minus1([A | T]) :-
    (   A >= 4 -> B is A - 4, format('A= ~w B = ~w~n', [A, B]); true),
    (   A >= 2 -> C is A - 2, format('A= ~w B = ~w~n', [A, C]); true),


test :-
    minus2([9,8,7,3,1], L),
    maplist(affiche, L).

minus2([], []).

minus2([H | T], [H1 | T1]) :-
    minus2(T, T1),
    (   H >= 4 -> A is H - 4, B is H - 2, H1 = [H, A,B];
        H >= 2 -> A is H - 2, H1 = [H, A]; H1 = []).

affiche([H, A,B]) :-
     format('A= ~w B = ~w~n', [H, A]),
     affiche([H, B]).

affiche([H, A]) :-
     format('A= ~w B = ~w~n', [H, A]).


The result is


4 ?- test.
A= 9 B = 5
A= 9 B = 7
A= 8 B = 4
A= 8 B = 6
A= 7 B = 3
A= 7 B = 5
A= 3 B = 1

A= 9 B = 5
A= 9 B = 7
A= 8 B = 4
A= 8 B = 6
A= 7 B = 3
A= 7 B = 5
A= 3 B = 1
true ;

RE: Arithmatic on Lists

Thank you all for your help, I've used bits from all comments!


Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close