{-# LANGUAGE BangPatterns #-} {-# LANGUAGE BinaryLiterals #-} {-# LANGUAGE MultiWayIf #-} {-# LANGUAGE NumDecimals #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE TupleSections #-} import Control.Applicative import Control.Arrow import Control.Monad import Control.Monad.ST import Data.Char import Data.List import Data.Maybe import qualified Data.ByteString.Char8 as B import Data.Array.ST.Safe import Data.STRef import Debug.Trace import Text.Printf readInt = readLn :: IO Int readInts = map ( fst . fromJust . B.readInt ) . B.words <$> B.getLine readNInts = readInt >>= flip replicateM readInt which a b f = if f then a else b mp [ a, b ] = ( a, b ) main = do [ n, px, py ] <- readInts commands <- reverse . map decode <$> replicateM n readInts mapM_ ( uncurry $ printf "%d %d\n" ) $ map ( \( a, b, _ ) -> ( a, b ) ) $ reverse $ tail $ scanl compose ( px, py, 0 ) commands decode [ 1, dx ] = ( dx, 0, 0 ) decode [ 2, dy ] = ( 0, dy, 0 ) decode [ 3 ] = ( 0, 0, 1 ) compose ( x, y, d ) ( _, _, 1 ) = ( y, -x, ( succ d ) `mod` 4 ) compose ( x1, y1, d ) ( x2, y2, 0 ) = ( x1 + dx, y1 + dy, d ) where dx = [ x2, y2, -x2, -y2 ] !! d dy = [ y2, -x2, -y2, x2 ] !! d