Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- odwroc2(A, [], A).
- odwroc2(L, [G|O], A) :- odwroc2(L, O, [G|A]).
- palindrom(A, A).
- palindrom([G1|O1], [G1|O2]) :- palindrom(O1, O2).
- czypalindrom(L) :- odwroc2(L2, L, []), palindrom(L, L2).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement