--{-# LANGUAGE Safe #-} {-# LANGUAGE PatternGuards #-} import qualified Data.Text as T import qualified Data.Text.IO as TI import qualified Data.List as L import Data.Monoid import Data.Maybe import Control.Applicative import Debug.Trace import Data.Char (!-!)::[a]->Int->Maybe a [] !-! _ = Nothing (x:xs) !-! 0 = Just x (x:xs) !-! n = xs !-! (n-1) (<$~>)::Functor f => f a -> (a -> b) -> f b (<$~>)=flip (<$>) maybeRead s |[(x,"")]<-(reads s)=Just x |otherwise = Nothing getLines::Int->IO T.Text getLines 1 = TI.getLine getLines n = TI.getLine <> return (T.pack " ") <> (getLines$n-1) run main_f n= getLines n <$~> T.split (==' ') <$~> fmap T.unpack <$~> main_f <$~> fromMaybe "error" >>= putStrLn {- 1 2 3 4 5 6 12 11 10 9 8 7 13 14 15 16 17 18 24 23 22 21 20 19 -} getClass::Int->Int->Int getClass m v = let tmp = v `mod` (2 * m)::Int r=if tmp > m then 2*m-tmp+1 else tmp in if r==0 then r+1 else r main_ list = do let get n = maybeRead=<<(list !-! n)::Maybe Int m<-get 1 x<-get 2 y<-get 3 return$if (getClass m x)==(getClass m y) then "YES" else "NO" format::Show a=>String->[a]->String format str list = format_ str list False where format_::Show a=>String ->[a]->Bool->String format_ [] _ _ = "" format_ (x:xs) list False |x=='%'=format_ xs list True |otherwise = x:format_ xs list False format_ (x:xs) list True |x=='%' = '%':format_ xs list False |isDigit x = show (list !! (ord x-ord '0'))++format_ xs list False main = run main_ 2