Haskell：检查字符串是否为有效数字

Question

检查字符串是否为有效数字时如何检查小数点？

我在想的是我使用类似下面的东西，但是添加代码来检查小数点！

isNumber :: String -> Bool
isNumber xs = all isDigit xs || add extra code here

EBNF 中将有效数字定义为：

number -> .digit+ | digit+ [ .digit*]

例如，0.5、1.5、1、1. 都是有效数字。 + 表示出现一次或多次，* 表示出现零次或多次。

Answer 1

一种简单的方法是使用readMaybe 将字符串转换为数字，

import Text.Read

检查是否为Double，

readMaybe "123" :: Maybe Double
Just 123.0

readMaybe "12a3" :: Maybe Double
Nothing

后者返回Nothing，字符串不是有效数字。以类似的方式，如果我们假设它是Int，

readMaybe "12.3" :: Maybe Int
Nothing

Answer 2

这是一个简单的策略：

1. 去掉字符串开头的所有数字。

2. 剩下的字符串现在应该是

   a) 空字符串，或

   b) 小数点后跟所有数字。

嗯，差不多。这也将匹配空字符串"" 和"."，但我们可以将它们视为特殊情况。

翻译成 Haskell：

isNumber :: String -> Bool
isNumber ""  = False
isNumber "." = False
isNumber xs  =
  case dropWhile isDigit xs of
    ""       -> True
    ('.':ys) -> all isDigit ys
    _        -> False

Answer 3

看看reads，然后：

isNumber :: String -> Bool
isNumber str =
    case (reads str) :: [(Double, String)] of
      [(_, "")] -> True
      _         -> False

也许有更好的方法。

请注意，对于在 Haskell 中被认为有效的数字，这将返回 True，您的特定用例并未完全包含在此范围内。如果您需要根据您的规范进行自定义解析，您应该使用 Parsec 之类的东西，正如@CarstenKönig 在他的评论中所建议的那样。