import Data.List (permutations, nub)
 
-- Parte 1, Solução 1
somaPerm :: (Integral a, Read a, Show a) => a -> a
somaPerm = sum . map read . permutations . show
 
-- Parte 1, Solução 2
somaPerm2 n = fact ((length $ show n) - 1) * (sum $ digs n) * (ones $ length $ show n)
  where
    fact n = product [1..n]
 
    digs 0 = []
    digs n = (n `mod` 10) : digs (n `div` 10)
 
    ones n = (1+) . sum . map (10^) $ [1..n-1]
 
-- Parte 2
capicua n = (show n) == (reverse $ show n)
soma1000cap = nub $ filter capicua $ map somaPerm [1..1000]
capicuas = let cap x = capicua $ somaPerm x in nub $ filter cap [1..1000]
 
main :: IO()
main = do
  n <- (readLn :: IO Int)
  putStrLn $ "Metodo 1: " ++ (show $ somaPerm n)
  putStrLn $ "Metodo 2: " ++ (show $ somaPerm2 n)
  putStrLn $ "1 a 1000, quais dao capicuas: " ++ show capicuas
  putStrLn $ "Capicuas distintas, de 1 a 1000: " ++ show soma1000cap

aW1wb3J0IERhdGEuTGlzdCAocGVybXV0YXRpb25zLCBudWIpCgotLSBQYXJ0ZSAxLCBTb2x1w6fDo28gMQpzb21hUGVybSA6OiAoSW50ZWdyYWwgYSwgUmVhZCBhLCBTaG93IGEpID0+IGEgLT4gYQpzb21hUGVybSA9IHN1bSAuIG1hcCByZWFkIC4gcGVybXV0YXRpb25zIC4gc2hvdwoKLS0gUGFydGUgMSwgU29sdcOnw6NvIDIKc29tYVBlcm0yIG4gPSBmYWN0ICgobGVuZ3RoICQgc2hvdyBuKSAtIDEpICogKHN1bSAkIGRpZ3MgbikgKiAob25lcyAkIGxlbmd0aCAkIHNob3cgbikKICB3aGVyZQogICAgZmFjdCBuID0gcHJvZHVjdCBbMS4ubl0KCiAgICBkaWdzIDAgPSBbXQogICAgZGlncyBuID0gKG4gYG1vZGAgMTApIDogZGlncyAobiBgZGl2YCAxMCkKCiAgICBvbmVzIG4gPSAoMSspIC4gc3VtIC4gbWFwICgxMF4pICQgWzEuLm4tMV0KCi0tIFBhcnRlIDIKY2FwaWN1YSBuID0gKHNob3cgbikgPT0gKHJldmVyc2UgJCBzaG93IG4pCnNvbWExMDAwY2FwID0gbnViICQgZmlsdGVyIGNhcGljdWEgJCBtYXAgc29tYVBlcm0gWzEuLjEwMDBdCmNhcGljdWFzID0gbGV0IGNhcCB4ID0gY2FwaWN1YSAkIHNvbWFQZXJtIHggaW4gbnViICQgZmlsdGVyIGNhcCBbMS4uMTAwMF0KCm1haW4gOjogSU8oKQptYWluID0gZG8KICBuIDwtIChyZWFkTG4gOjogSU8gSW50KQogIHB1dFN0ckxuICQgIk1ldG9kbyAxOiAiICsrIChzaG93ICQgc29tYVBlcm0gbikKICBwdXRTdHJMbiAkICJNZXRvZG8gMjogIiArKyAoc2hvdyAkIHNvbWFQZXJtMiBuKQogIHB1dFN0ckxuICQgIjEgYSAxMDAwLCBxdWFpcyBkYW8gY2FwaWN1YXM6ICIgKysgc2hvdyBjYXBpY3VhcwogIHB1dFN0ckxuICQgIkNhcGljdWFzIGRpc3RpbnRhcywgZGUgMSBhIDEwMDA6ICIgKysgc2hvdyBzb21hMTAwMGNhcA==

MTUyODA=

15280