Napisz program usuwający samogłoski (String, NoVowelsString) usuwa wszystkie samogłoski z podanego ciągu.

Do tej pory mam stanvowel(X):- member(X,[a,e,i,o,u]). Potem pomyślałem o tym, który usuwa wszystkie elementy z innej listy:

delete2([],L1,L1).
delete2([H|T],L1,L3) :-
   delete2(H,L1,R2),
   delete2(T,R2,L3).

Tak więc, mając te dwie rzeczy, pomyślałem, że mogę umieścić warunek w usunięciu tych elementów, które muszą być członkami[a,e,i,o,u]. Chociaż wciąż nie mam nigdzie.