集合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 ]
集合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 ]