distantest_zorome_comma.hs

import           Data.List

commas = map (* 111) [0 .. 9]
diff1000 v c | d <= 500  = d
             | otherwise = 1000 - d
 where
  d = a - b
  a = max c v
  b = min c v

calc n = (n, s) where s = sum $ map (\c -> diff1000 n c) commas

main = print $ sortBy (\(a, b) (a2, b2) -> compare b b2) $ map calc [0 .. 999]