Prolog - listas en prolog(invertir lista)

hola,necesito hacer un ejercicio en prolog que te de una lista y la invierta en una auxiliar.
el enunciado es asi:

realizar el predicado invierte(L,M) que devuelva en M la inversa de L .
por ejemplo:

invierte([1,2,3],L).
L=[3,2,1].

sugerencia:
crear un predicado invierte auxiliar que reciba tres en vez de dos parametros y k uno de ellos lo use como una lista auxiliar donde valla guardando los elementos.
al final, la segunda y tercera lista deberan ser iguales,Si no os sale tb se puede hacer con " concatena)

porfavor es urgente
muchisimas gracias de antemano
un saludo

Hola,

no se si llegaré a tiempo, pero aquí tienes:

invierte([],[]).
invierte([H|T],L):- invierte(T,R), concat(R,[H],L).

concat([],L,L).
concat([X|L1],L2,[X|L3]):- concat(L1,L2,L3).

Un saludo.

Muchas Gracias Monica!!!!!!
Me salvaste el dia!!

ESTADOS
Triste = T
Preocupado=P
Emocionado= E
Feliz=F
Avergonzado=A

Un millon de gracias Monica!! no solo salvaste a Andrea, tambien me salvaste a mi y supongo que a muchos mas tambien!! de nuevo muchisimas gracias!!!

inversa([],[]).
inversa([X|L1],L):-inversa(L1,Resto), concatenar(Resto,[X],L).

¿qué pasaria si no queremos usar recursion? osea ¿hay alguna manera de guardar la lista1 en la base de datos interna, luego ir sacando los elementos y guardarlos en orden inverso en lista2, con 1 llamada invertir(lista1, lista2) ?