Frost · September 14, 2015 20:42 · eskilandreen · Sep 15, 2015
diff --git a/38.hs b/38.hs
 -- 38 is the sum of the squares of the first three primes
 -- 38 is 83 backwards
 -- 83 is the sum of the squares of the first three odd primes
 main = do
  let primes = [2,3,5,7]
  putStrLn $ show . sum . map square $ take 3 primes
  putStrLn $ reverse . show . sum . map square $ drop 1 primes
  where
    square n = n * n
	-- 38 is the sum of the squares of the first three primes
	-- 38 is 83 backwards
	-- 83 is the sum of the squares of the first three odd primes
	main = do
	let primes = [2,3,5,7]
	putStrLn $ show . sum . map square $ take 3 primes
	putStrLn $ reverse . show . sum . map square $ drop 1 primes
	where
	square n = n * n