现在有1分、2分、5分的硬币各无限枚，要凑成1元有多少种凑法?

coins.js

function getResult(n,coins) {

    var a = new Array(n+1);

    for(var i = 0; i <= n;i++)
        a[i] = 0;

    a[0] = 1;

    for(var j = 0; j<coins.length; j++)
        for(var i = 0; i <= n;i++)        
             a[i+coins[j]] += a[i]; 

    return a[n];

}
getResult(100,[1,2,5]); // 541

我厂前端同学的解法（haskell）：

module Main where
    coin :: Int -> Int
    coin 0 = 0
    coin n = sum $ map (\a -> (a `div` 2 + 1)) $ takeWhile (>=0) [a | a <- [n - (5 * b) | b <- [0 .. ]]]

详见http://zhanglin.pro/19

就是动态规划吗？