Submission #866199

---

Source Code Expand

import Data.List( sort)
main = do
    abc <- return . map (read::String->Integer) . words =<< getLine
    let abc' = sort abc
	a' = abc'!!0
	b' = abc'!!2
	c' = abc'!!1
    print $ a' * c' * (b' - 2*floor (fromIntegral b'/2))

Submission Info

Compile Error

Main.hs:5:1: Warning: Tab character

Main.hs:6:1: Warning: Tab character

Main.hs:7:1: Warning: Tab character

Judge Result