07_Haskell_列表_List_练习

–单行注释
{-多行注释-}

{- 1.
函数名：getUppercase
参数：str
功能：获取给定字符串中的大写字母
-}

getUppercase str = [ a | a <- str, a `elem` ['A'..'Z'] ]

{- 2.
函数名：len’
参数：xs（列表）
功能：利用sum函数，重写length函数
-}

len' xs =  sum [ 1 | _ <- xs ]

{- 3.
函数名：pingPong
参数：xs（一个数字列表）
功能：数字替换为字符串
x>10→"Ping",
x<10→"Pong",
x为奇数
-}

pingPong xs = [ if x>10 then "Ping" else "Pong" | x <- xs, odd x ]