From da63f1d1eceecd8758a9a4c71c1296172af285ea Mon Sep 17 00:00:00 2001 From: IvoTod Date: Wed, 2 Nov 2016 01:55:41 +0200 Subject: [PATCH] Fix decode decoding vowel sequences --- exercises/secret-lang/Secret-lang.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/exercises/secret-lang/Secret-lang.hs b/exercises/secret-lang/Secret-lang.hs index e4ec7ba..9c34fb9 100644 --- a/exercises/secret-lang/Secret-lang.hs +++ b/exercises/secret-lang/Secret-lang.hs @@ -51,6 +51,6 @@ dropN number (first:rest) = dropN (number-1) rest decode :: String -> String decode [] = [] decode (x : 'o' : y : rest) - | x == y = x : decode (dropN 2 ('o':y:rest)) + | x == y && isConsonant x = x : decode (dropN 2 ('o':y:rest)) | otherwise = x : 'o' : y : (decode (rest)) decode (first : rest) = first : decode (rest)