1010 一元多项式求导 (25分) Haskell 题解

1010 一元多项式求导 (25分)

设计函数求一元多项式的导数。（注：x​n​​（n为整数）的一阶导数为nx​n−1​​。）

输入格式:

以指数递降方式输入多项式非零项系数和指数（绝对值均为不超过 1000 的整数）。数字间以空格分隔。

输出格式:

以与输入相同的格式输出导数多项式非零项的系数和指数。数字间以空格分隔，但结尾不能有多余空格。注意“零多项式”的指数和系数都是 0，但是表示为 0 0。

输入样例:

3 4 -5 2 6 1 -2 0

输出样例:

12 3 -10 1 6 0

解题思路：

依次遍历就可以了，要注意两点：1.指数为0的时候该项应该丢弃（不是结束计算，因为指数可以为负）。 2.判断最后有没有输出，如果没有的话要输出零多项式。

f :: [Int] -> [Int]
f [] = []
f (x:y:xs) = if y == 0 then f xs else x * y : y - 1 : f xs

main :: IO ()
main = do
    line <- getLine
    let xs = (map read $ words line) :: [Int]
        r  = f xs
    putStrLn $ unwords $ map show $ if null r then [0, 0] else r