8 lines
313 B
Haskell
8 lines
313 B
Haskell
|
module Likes where
|
||
|
|
|
||
|
|
likes :: [String] -> String
|
||
|
|
likes [] = "no one likes this"
|
||
|
|
likes [a] = a ++ " likes this"
|
||
|
|
likes [a, b] = a ++ " and " ++ b ++ " like this"
|
||
|
|
likes [a, b, c] = a ++ ", " ++ b ++ " and " ++ c ++ " like this"
|
||
|
|
likes (a:b:rest) = a ++ ", " ++ b ++ " and " ++ show (length rest) ++ " others like this"
|