RosettaCodeData/Task/Reverse-a-string/Prolog/reverse-a-string-2.pro

5 lines
91 B
Prolog

accRev([H|T], A, R) :- accRev(T, [H|A], R).
accRev([], A, A).
rev(L,R) :- accRev(L,[],R).