answer a puzzle (A problem for Susi) on an italian magazine

susi923.hs

{-
 This code answers to "Un quesito con la Susi n. 923"
 (a puzzle on an italian magazine).
 Brute force, no optimization (and no Haskell guru here).
-}
import Data.List

checkSol :: [Int] -> Bool
checkSol a =
  5*susi == gianni && (sum a) == (susi + gianni + tavolo)
  where
    susi = sum $ take 3 a
    gianni = sum $ take 4 (drop 3 a)
    tavolo = sum $ drop 7 a

sols :: [[Int]]
sols = filter checkSol (permutations [1..10])

main = do
     print $ (sum . drop 7 . head) sols