台形数

でふれられていた

$ \frac{(a+b)\times b}{2} = 10^6 \times a + b

これを6桁の台形数と呼ぶことにしよう（勝手にオレオレ定義）

code:Trapezoid.hs

module Trapezoid where

, let (a,r) = divMod (b*(b-2)) (2*10^d-b)

, r == 0

, a < 10^d

, a >= 10^(d-1)

]

main :: IO ()

where

phi d = (d, len, cs)

where

len = length cs

cs = trapezoid d

code:stdout

# 1桁の台形数2組

# 2桁の台形数5組

# 3桁の台形数10組

# 4桁の台形数17組

# 5桁の台形数20組

# 6桁の台形数149組

# 7桁の台形数24組

# 8桁の台形数132組

# 9桁の台形数47数

# 10桁の台形数151桁

# 11桁の台形数30組