Liste in separate Listen filtern

Ich muss die Liste filtern[#,d,e,#,f,g] so dass ich die Ausgabe als @ bekom[[d,e],[f,g]] ,
Ich stecke beim Erstellen einer neuen Liste jedes Mal fest, wenn ich auf "#" treffe. Gibt es eine Möglichkeit, dies zu tun? Ich habe den folgenden Code ausprobiert,

filterL([],List) :-[].
filterL([Head|Tail],X) :-
   (  Head \='#'->
      append(X,Head,List),
      filterL(Tail,List)
   ;  filterL(Tail,X)
   ).

Antworten auf die Frage(3)

Ihre Antwort auf die Frage