filtrar la lista en listas separadas
Necesito filtrar la lista[#,d,e,#,f,g]
tal que obtengo la salida como[[d,e],[f,g]]
,
Estoy atascado al crear una nueva lista cada vez que encuentro '#', ¿hay alguna manera de hacer esto? Intenté el siguiente código,
filterL([],List) :-[].
filterL([Head|Tail],X) :-
( Head \='#'->
append(X,Head,List),
filterL(Tail,List)
; filterL(Tail,X)
).