elessime · August 3, 2021 16:49
diff --git a/speller.hs b/speller.hs
 speller :: [[Char]] -> [Char]
 speller a 
    | null a = [] 
    | otherwise = [head (head a)] ++ " is for " ++ head a ++ (if length (tail a) == 1 then " and " else if null (tail a) then "" else ", ") ++ speller (tail a)
	speller :: [[Char]] -> [Char]
	speller a
	\| null a = []
	\| otherwise = [head (head a)] ++ " is for " ++ head a ++ (if length (tail a) == 1 then " and " else if null (tail a) then "" else ", ") ++ speller (tail a)