Haskell字符串中char的百分比

Question

我正在尝试创建一个接收STRING的程序，并返回其中“C”和“A”的百分比。但是我错了，这是我的代码：

function' :: [Char] -> Double
function' xs = 100* ( fromIntegral final0 )
                    where final0 = length $ filter (\x-> x == 'C'|| x == 'G') xs

如果我运行：function'$ replicate 20'C'，返回2000.0并且应该给我1.0

Answer 1

问题中的一些错误

你说

  

＆＃39; C＆＃39;和＆＃39; A＆＃39;

虽然你的代码是

  

\ X-＆GT; x ==＆＃39; C＆＃39; || x ==＆＃39; G＆＃39;

你正在做什么

您正在衡量C和G以及*100的数量，并返回结果。

如何解决

不要*100，请/ length xs。

解决方案

function' xs = fromIntegral final0 / fromIntegral final1
                where final0 = length $ filter (\x-> x == 'C'|| x == 'G') xs
                      final1 = length xs