Added Advanced solution in Prolog

Prolog!!