STY use . instead of $

Author: eigenfoo

euler001.hs

@@ -1,2 +1,2 @@
-main = print $ sum $ filter multiple3or5 [1..999]
+main = print . sum $ filter multiple3or5 [1..999]
   where multiple3or5 = (\n -> n `rem` 3 == 0 || n `rem` 5 == 0)

euler002.hs

@@ -1,6 +1,6 @@
 import Data.List
 
-main = print $ sum [x | x <- takeWhile (< 4000000) fibs, even x]
+main = print . sum $ [x | x <- takeWhile (< 4000000) fibs, even x]
   where fibs = unfoldr (\(a, b) -> Just (a, (b, a+b))) (1, 1)
 
 {-

euler003.hs

@@ -1,4 +1,4 @@
-main = print $ maximum $ prime_factors 600851475143
+main = print . maximum . prime_factors $ 600851475143
 
 prime_factors :: (Integral a) => a -> [a]
 prime_factors 1 = []

euler004.hs

@@ -1,3 +1,3 @@
-main = print $ maximum palindromes
+main = print . maximum $ palindromes
   where palindromes = [x*y | x <- [100..999], y <- [x..999],
                              (reverse $ show (x*y)) == (show (x*y))]

euler005.hs

@@ -1,6 +1,6 @@
 import Data.List
 
-main = print $ product $ foldl1 lcm_primes $ map prime_factors [1..20]
+main = print . product $ foldl1 lcm_primes $ map prime_factors [1..20]
 
 lcm_primes :: (Eq a) => [a] -> [a] -> [a]
 lcm_primes a b = a ++ (b \\ a)