Exercices Corriges 01 : Haskell

Exercices Corriges : Haskell

Écrire une fonction en Haskell qui prend une liste d'entiers et retourne la somme de ces entiers.
Écrire une fonction qui prend une chaîne de caractères et renvoie la chaîne inversée.
Écrire une fonction qui calcule le produit de tous les éléments d'une liste d'entiers.
Écrire une fonction qui prend une liste de chaînes de caractères et renvoie une nouvelle liste qui ne contient que les chaînes de longueur pair.
Écrire une fonction qui prend une liste d'entiers et renvoie la liste triée dans l'ordre décroissant.
Écrire une fonction qui prend une liste de nombres réels et renvoie la moyenne de ces nombres.

Correction :

1-------------

sumList :: [Int] -> Int
sumList [] = 0
sumList (x:xs) = x + sumList xs

2-------------

reverseString :: String -> String
reverseString [] = []
reverseString (x:xs) = reverseString xs ++ [x]

3-------------

multiplyList :: [Int] -> Int
multiplyList [] = 1
multiplyList (x:xs) = x * multiplyList xs

4------------

evenLengthStrings :: [String] -> [String]
evenLengthStrings [] = []
evenLengthStrings (x:xs)
| even (length x) = x : evenLengthStrings xs
| otherwise = evenLengthStrings xs

5-------------

sortDescending :: [Int] -> [Int]
sortDescending [] = []
sortDescending (x:xs) = sortDescending larger ++ [x] ++ sortDescending smaller
where
smaller = [a | a <- xs, a <= x]
larger = [b | b <- xs, b > x]

6------------

averageList :: [Float] -> Float
averageList xs = sum xs / fromIntegral (length xs)