import Control.Applicative ((<$>)) import Control.Monad (replicateM, guard) import Data.List (permutations) main :: IO () main = do [n, m] <- map read <$> words <$> getLine solve n <$> replicateM m (map read <$> words <$> getLine) >>= print solve :: Int -> [[Int]] -> Int solve n xss = maximum $ do is <- permutations [0..n-1] let pt = sum $ do [i1, i2, sc] <- xss guard $ is !! i1 < is !! i2 return sc return pt