Name: Anonymous 2012-09-24 14:00
Find X, such that
sum(digits(X,2)) = 6
sum(digits(X,10)) = 6
sum(digits(X,40)) = 6
sum(digits(X,2)) = 6
sum(digits(X,10)) = 6
sum(digits(X,40)) = 6
ds _ 0 = 0
ds base n = y + ds base x
where (x,y) = n `divMod` base
main = print $ head $ filter p [0..]
where p n = map (flip ds n) [2,10,40] == [6,6,6]