oskimura/MaxTrianble.hs

## MaxTrianble.hs
-- http://ideone.com/WeepT
solve = max' . map  sum $ seq
    where
      tri = [2,3,4,5,10]
      seq =[ [x,y,z] | x <- tri, y <- tri , z <- tri
           , x/=y,y=z,x/=z,x<(y+z)
           ]
      max' = foldr1 max

main = print $ solve
	-- http://ideone.com/WeepT
	solve = max' . map sum $ seq
	where
	tri = [2,3,4,5,10]
	seq =[ [x,y,z] \| x <- tri, y <- tri , z <- tri
	, x/=y,y=z,x/=z,x<(y+z)
	]
	max' = foldr1 max

	main = print $ solve