贴 Haskell 代码，解一道小题。给任意字符串，找出长度最长的数字串。请随意扔砖头。 http://www.v2ex.com/t/259360#reply18
myid · 2016-02-28 20:59:18 +08:00 · 4848 次点击这是一个创建于 3220 天前的主题，其中的信息可能已经有所发展或是发生改变。
import Data.Char (isDigit)
longestInts :: String -> [Int]
longestInts xs = map (digitsToInt) $ longestLength $ extractDigits xs
extractDigits :: String -> [String]
extractDigits [] = []
extractDigits xs
| null $ dropWhile (not.isDigit) xs = []
| otherwise = (takeWhile (isDigit) $ dropWhile (not.isDigit) xs) : (extractDigits $ dropWhile (isDigit) $ dropWhile (not.isDigit) xs)
longestLength :: [[a]] -> [[a]]
longestLength xs = filter (\x -> length x == (maximum $ map (length) xs)) xs
longestInts :: String -> [Int]
longestInts xs = map (digitsToInt) $ longestLength $ extractDigits xs
extractDigits :: String -> [String]
extractDigits [] = []
extractDigits xs
| null $ dropWhile (not.isDigit) xs = []
| otherwise = (takeWhile (isDigit) $ dropWhile (not.isDigit) xs) : (extractDigits $ dropWhile (isDigit) $ dropWhile (not.isDigit) xs)
longestLength :: [[a]] -> [[a]]
longestLength xs = filter (\x -> length x == (maximum $ map (length) xs)) xs
目前尚无回复
Select Language