找到一个不超过另一个值的浮点值haskell

Question

我必须找到一个不高于给定值的高度。我已经找到代码来完成一个整数列表。但我需要它接受一个浮点值，即countElems :: Float -> Heights -> Int。我知道我必须使用从整体来允许浮点值，但我不知道如何实现它。这是我到目前为止有：

countElems :: Int -> [Int] -> Int 
countElems n (x:xs) = fromEnum (n < x) + countElems n xs 
countElems _ []  = 0 

Answer 1

只要编辑countElems类型的注释接受任何命令类型：

countElems :: Ord a => a -> [a] -> Int 
countElems n (x:xs) = fromEnum (n < x) + countElems n xs 
countElems _ []  = 0 

现在既适用Int和Float和Ord型类的每个实例。

实际上，这是编译器推断的countElems的实际类型。您的版本仅限于a = Float。

Answer 2

我用它来工作：

countElems :: Float -> [Float] -> Int countElems _ [] = 0 countElems n (x:xs) | n < x = 1 + (tallerthan n xs) | otherwise = tallerthan n xs