学步园

集合A ｛1.2.....2010｝
集合B 是它的子集，需要满足条件，假设a属于B，则3a不属于B

问B最多有几个元素

let result n = 
concatMap (takeWhile (<=n) . iterate (*9)) 
[ x | x <- [(1::Int)..n], x `mod` 3 /= 0 ]