note description: "Interaction of two medications." author: "Jackie Wang" class INTERACTION inherit ANY redefine is_equal end create make feature -- Queries first: MEDICATION second: MEDICATION feature -- Constructor make (fst, snd: MEDICATION) -- Initialize an interaction between 'fst' and 'snd'. do first := fst second := snd ensure first ~ fst second ~ snd end feature -- Equality is_equal (other: like Current): BOOLEAN -- Are current interaction equal to 'other'? do if other /= Void then Result := (first ~ other.first and second ~ other.second) end end end -- class INTERACTION
Generated by ISE EiffelStudio