首页   注册   登录
V2EX = way to explore
V2EX 是一个关于分享和探索的地方
现在注册
已注册用户请  登录
拉钩
V2EX  ›  Haskell

贴 Haskell 代码,解一道小题。给任意字符串,找出长度最长的数字串。请随意扔砖头。 http://www.v2ex.com/t/259360#reply18

  •  
  •   myid · 2016-02-28 20:59:18 +08:00 · 1244 次点击
    这是一个创建于 1021 天前的主题,其中的信息可能已经有所发展或是发生改变。
    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
    目前尚无回复
    关于   ·   FAQ   ·   API   ·   我们的愿景   ·   广告投放   ·   感谢   ·   实用小工具   ·   1774 人在线   最高记录 4019   ·  
    创意工作者们的社区
    World is powered by solitude
    VERSION: 3.9.8.1 · 15ms · UTC 02:12 · PVG 10:12 · LAX 18:12 · JFK 21:12
    ♥ Do have faith in what you're doing.
    沪ICP备16043287号-1