Напишите программу, которая удаляет гласные (,StringNoVowelsString), который удаляет все гласные из данной строки.

Пока яу нас есть условиеvowel(X):- member(X,[a,e,i,o,u]), Затем я подумал о том, что удаляет все элементы из другого списка:

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

Итак, имея эти два, я подумал, что я могу поставить условие для тех элементов, которые будут удалены, чтобы они были членами[a,e,i,o,u], Хотя я до сих порникуда не деться.