Problem:
Combination of Number Sequences

0 から 9 までの整数を使った n 個の数の並び k1, k2, ..., kn を考えます。正の整数 n と s を読み込んで、

k1 + 2 × k2 + 3 × k3 + ... + n × kn = s

となっているような n 個の数の並びが何通りあるかを出力するプログラムを作成してください。ただし、1 つの「n 個の数の並び」には同じ数が 2 回以上現われないものとします。

Input

入力は複数のデータセットからなります。各データセットとして、n (1 ≤ n ≤ 10) と s (0 ≤ s ≤ 10,000)が空白区切りで１行に与えられます。

データセットの数は 100 を超えません。

Output

データセットごとに、n 個の整数の和が s になる組み合わせの個数を１行に出力します。

Sample Input

3 10
3 1

Output for the Sample Input

8
0

Solution in Haskell (judge verdict: Memory Limit Exceeded)

{-# LANGUAGE BangPatterns #-}

import Data.List
import Data.IntMap.Lazy (IntMap, (!), fromList, insertWith, keys, elems)

main :: IO ()
main = interact $ unlines . map (show . comb_of_numseq . map read . words) . lines

comb_of_numseq :: [Int] -> Int
comb_of_numseq [n,s]
 | s > 330 = 0
 | otherwise = length $ filter ((==n).length) (memo!s)

memo :: IntMap [[Int]]
memo = foldl' dp (fromList [(k,[[k]]) | k<-[0..9]]) [2..10]

dp :: IntMap [[Int]] -> Int -> IntMap [[Int]]
dp !im n = foldl' (\acc (k,v) -> insertWith (++) k v acc) im (concatMap next [0..9])
 where
  next k = filter ((<=330).fst) (zip ks' es')
   where
    ks' = map (+ (n*k)) (keys im)
    es' = map (map (k:) . filter (\v -> length v == n-1 && notElem k v)) (elems im)