ch-2.p « prolog « 2colours « challenge-279 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-279/2colours/prolog/ch-2.p

blob: 6adf7674d2f2e5a6cf4a8c1302d2c6b0211c811c (plain)

task2(Str) :- re_replace("[^aeiou]"/ig, "", Str, Vowels_Only), string_length(Vowels_Only, Vowel_Count), Vowel_Count mod 2 =:= 0.