我正在尝试创建一个接收字符串的程序并返回前5个和后5个位置中Cs和Gs的百分比,如果字符串少于20个字符,则该函数应该返回百分比完整的序列。 但是,我已经能够让你只给我Cs和Gs的百分比,但我不知道如何检查前5个位置和决赛。
function' :: [Char] -> Double
function' xs = fromIntegral final0 / fromIntegral final1
where final0 = length $ filter (\x-> x == 'C'|| x == 'G') xs
final1 = length xs
答案 0 :(得分:2)
您可以使用s
获取字符串take 5 s
的第5个元素,使用take 5 $ reverse s
获取最后5个元素。