vipzero · August 17, 2019 02:59
diff --git a/distantest_zorome_comma.hs b/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]
	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]