Problem:
４つの整数の和 II

4,000 以下の正の整数 n を入力し、0 〜 1000 の範囲の整数 a, b, c, d の組で

a + b + c + d = n

を満たすものの組み合わせ数を出力するプログラムを作成して下さい。

Input

複数のデータセットが与えられます。各データセットに n が１行に与えられます。入力の最後まで処理して下さい。

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

Output

各データセットごとに、a, b, c, d の組み合わせの個数を１行に出力して下さい。

Sample Input

2
3
35

Output for the Sample Input

10
20
8436

Solution in Haskell (judge verdict: Accepted)

import Control.Applicative
import System.IO
import Control.Monad
 
main = do
    n <- read <$> getLine
    putStrLn $ show $ sum $ [max 0 ((min (a+1) (2001-a) ) * (min (n-a+1) (2001 - n + a))) | a <- [0 .. min n 2000]]
    eof <- isEOF
    unless eof main