Hello all! I really need some help of yours :D
I've got all these rules:
Returns all the vowels on a list
extractvowels([], []).
extractvowels([H|T], R) :- consonant(H), extractvowels(T, R).
extractvowels([H|T],[H|R]) :- \+ consonant(H), extractvowels(T, R).
Flattens a list...