Question

Based on the prolog facts given below:

1

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

ii 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 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:

listofnointeracts(cinacalcet, List). List = [bimatoprost, cefdinir, ciclesonide, cinacalcet, cisplatin, colesevelam_hydrochloride, dacarbazine, iloprost, montelukast, nystatin, rosuvastatin, su11248, sucralfate, tegaserod, telithromycin, varenicline] listofinteracts(cinacalcet, List). List = [lambda, paricalcitol, sevelamer]

Regards!