Submission #432555

---

Source Code Expand

{-# LANGUAGE BangPatterns #-}

import Data.List
import Control.Monad
import Control.Applicative

main :: IO ()
main = do
  [n, a, b] <- map read . words <$> getLine
  ds <- replicateM n $ words <$> getLine

  let go !x [] = do
        case signum x of
          1  -> putStrLn $ "East " ++ show x
          0  -> print 0
          -1 -> putStrLn $ "West " ++ show (abs x)
      go !x ([s, d]: rest) =
        let x' = case s of
              "East" -> x + dx
              "West" -> x - dx
            dx = max a $ min b $ read d
        in go x' rest

  go 0 ds
  return ()

Submission Info

Judge Result