Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- c([X|T],X,T).
- s(In,Out) :- c(In,am, Out).
- s(In,Out) :- c(In,citit,Out).
- s(In,Out) :- c(In,o,Out).
- s(In,Out) :- c(In,carte,Out).
- s(In,Out) :- c(In,mers,Out).
- s(In,Out) :- c(In,la,Out).
- s(In,Out) :- c(In,facultate,Out).
- s(In,Out) :- s(In,In2), s(In2,Out), s(In2, Out), s(In2, Out).
- s(In,Out) :- s(In,In2), s(In2,Out), s(In2, Out), s(In2, Out), s(In2, Out), s(In2, Out).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement