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
Submission Time | |
---|---|
Task | A - DDCC型文字列 |
User | lvs7k |
Language | Haskell (GHC 7.10.3) |
Score | 100 |
Code Size | 322 Byte |
Status | AC |
Exec Time | 1 ms |
Memory | 380 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 100 / 100 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | sample_01.txt, sample_02.txt, sample_03.txt |
All | 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, sample_01.txt, sample_02.txt, sample_03.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
01.txt | AC | 1 ms | 380 KB |
02.txt | AC | 1 ms | 380 KB |
03.txt | AC | 1 ms | 380 KB |
04.txt | AC | 1 ms | 380 KB |
05.txt | AC | 1 ms | 380 KB |
06.txt | AC | 1 ms | 380 KB |
07.txt | AC | 1 ms | 380 KB |
08.txt | AC | 1 ms | 380 KB |
09.txt | AC | 1 ms | 380 KB |
sample_01.txt | AC | 1 ms | 380 KB |
sample_02.txt | AC | 1 ms | 380 KB |
sample_03.txt | AC | 1 ms | 380 KB |