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

5 lines
91 B
Prolog
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
accRev([H|T], A, R) :- accRev(T, [H|A], R).
accRev([], A, A).
rev(L,R) :- accRev(L,[],R).