Submission #430994

---

Source Code Expand

{-# -Wall -Werror #-}

import Control.Applicative
import Data.List

calcSYNOP :: Double -> String
calcSYNOP km
	| km < 0.1 = "00"
	| 0.1 <= km && km <= 5.0 = addZero . show . floor $ (km*10.0)
	| 6.0 <= km && km <= 30.0 = show . floor $ (km + 50.0)
	| 35.0 <= km && km <= 70.0 = show . floor $ ((km - 30.0) / 5.0 + 80.0)
	| 70.0 <= km = "89"
		where
			addZero vv
				| length vv == 1 = "0" ++ vv
				| otherwise = vv

main :: IO ()
main = do
	-- 0 <= m <= 100,000
	m <- (read::String->Double) <$> getLine

	let km = m / 1000.0

	putStrLn $ calcSYNOP km

Submission Info

Compile Error

Main.hs:1:1: Unrecognised pragma

Judge Result