找到一個不超過另一個值的浮點值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