Submission #3439957

---

Source Code Expand

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

f :: String -> Bool
f (a:b:[])
    | a == b    = True
    | otherwise = False

main :: IO ()
main = do
    ss <- getLine
    let (as, bs) = splitAt 2 ss
    if and [f as, f bs, as /= bs]
        then putStrLn "Yes"
        else putStrLn "No"

Submission Info

Judge Result