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: Time Limit Exceeded)

{-# OPTIONS_GHC -O3 -fexpose-all-unfoldings -fdicts-cheap -fdicts-cheap #-}

import Data.List

zipn xs = sum (zipWith (*) xs [1..])

nAndS [n ,s]
  | s > 330               = "0"
  | zipn [(10-n)..9] <  s = "0"
  | zipn [(10-n)..9] == s = "1"
  | zipn (reverse [0..(n-1)])  >  s = "0"
  | zipn (reverse [0..(n-1)])  == s = "1"
  | otherwise             = nAndS'[n ,s]

nAndS' :: [Int] -> String
nAndS' [n, s] = show $ length [xs | xs <- (perm [0..9] n),sum xs == s]

perm :: [Int] -> Int -> [[Int]]
perm xs n = [x*n:ys | x <- xs
                    , ys <- (if  (n > 1) then perm (delete x xs) (n - 1) else [[]])]

main = do
  s' <- getContents
  let s = map (map read) $ map words $ lines s'
  putStr $ unlines $ map nAndS s