Question

Based on the prolog facts given below:

1.Given two medications, if they interact, tell what the effect of the interaction may be. Note there may be more than one result of the interaction.

2. Given a medical condition, list the drug interactions that may have caused it.

3. Given a drug, list the drugs, which have no interactions with it.

4. Given a drug, list the drugs, which do interact with it.

interacts(gatifloxacin,mometasone,asthma).

interacts(gatifloxacin,cisplatin,hyperglycaemia).

interacts(gatifloxacin,cisplatin,bone_marrow_failure).

interacts(gatifloxacin,montelukast,difficulty_breathing).

interacts(temazepam,thalidomide,neutropenia).

interacts(temazepam,thalidomide,thrombocytopenia).

interacts(temazepam,timolol,drowsiness).

interacts(temazepam,tizanidine,acid_reflux).

interacts(temazepam,tizanidine,heart_attack).

Answer 1

PREDICATES IN PROLOG:

%we find all the effects with given Drugs in first and second place, append the lists and sort them to remove duplicates
listofeffects(Drug1, Drug2, Effects):- findall(X, interacts(Drug1, Drug2, X), List1),
findall(X, interacts(Drug2, Drug1, X), List2),
append(List1, List2, List3),
sort(List3, Effects).

interactsfromeffects(Effect, Interact):- interacts(Drug1, Drug2, Effect), Interact=[Drug1, Drug2].

%we find all the interactions with given Drug in first and second place, append the lists and sort them to remove duplicates
listofinteracts(Drug, List):- findall(X, interacts(Drug, X, _), List1),
findall(X, interacts(X, Drug, _), List2),
append(List1, List2, List3),
sort(List3, List).

%we find all the Drugs in first and second place, append the lists and sort them to remove duplicates to get a list of drugs. We use previous predicate to get the list of interacting drugs, and subtract them from list to get list of not interacting drugs
listofnointeracts(Drug, List):- findall(X, interacts(_, X, _), List1),
findall(X, interacts(X, _, _), List2),
append(List1, List2, List3),
sort(List3, List4),
listofinteracts(Drug, List5),
subtract(List4, List5, List).

OUTPUT:

listofeffects(gatifloxacin,cisplatin, Effects) Effects = [bone_marrow_failure, hyperglycaemia] listofeffects(temazepam thalidomide, Effects) Effects = [neutropenia, thrombocytopenia] interactsfromeffects(bone_marrow_failure, Interact) Interact = [gatifloxacin, cisplatin] listofinteracts(temazepam, List) List = [thalidomide, timolol, tizanidine] listofnointeracts(temazepam, List) List = [cisplatin, gatifloxacin, mometasone, montelukast, temazepam]

Regards!