Submission #1994426
Source Code Expand
import qualified Data.ByteString.Lazy.Char8 as B import Data.Maybe import qualified Data.Vector.Unboxed as V import qualified Data.Vector.Unboxed.Mutable as VM import Data.Char import Data.List import Control.Monad bsReadInts :: B.ByteString -> [Int] bsReadInts = map (fst . fromJust . B.readInt) . B.words solve :: String -> Int solve a = 1 + answer where vec = V.create $ do v <- VM.replicate 26 0 forM a $ \c -> do let idx = ord c - ord 'a' when (idx >= 0 && idx < 26) (VM.modify v (+ 1) idx) return v lst = V.toList vec answer = sum $ zipWith (*) lst $ map sum $ tail (tails lst) main :: IO () main = do cont <- B.getContents let answer = solve (B.unpack cont) putStrLn $ show answer
Submission Info
Submission Time | |
---|---|
Task | B - Reverse and Compare |
User | yamate11 |
Language | Haskell (GHC 7.10.3) |
Score | 500 |
Code Size | 777 Byte |
Status | AC |
Exec Time | 17 ms |
Memory | 6780 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 500 / 500 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | sample_01.txt, sample_02.txt, sample_03.txt |
All | sample_01.txt, sample_02.txt, sample_03.txt, sample_01.txt, sample_02.txt, sample_03.txt, subtask_1_01.txt, subtask_1_02.txt, subtask_1_03.txt, subtask_1_04.txt, subtask_1_05.txt, subtask_1_06.txt, subtask_1_07.txt, subtask_1_08.txt, subtask_1_09.txt, subtask_1_10.txt, subtask_1_11.txt, subtask_1_12.txt, subtask_1_13.txt, subtask_1_14.txt, subtask_1_15.txt, subtask_1_16.txt, subtask_1_17.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sample_01.txt | AC | 2 ms | 508 KB |
sample_02.txt | AC | 2 ms | 508 KB |
sample_03.txt | AC | 2 ms | 508 KB |
subtask_1_01.txt | AC | 2 ms | 508 KB |
subtask_1_02.txt | AC | 16 ms | 6780 KB |
subtask_1_03.txt | AC | 2 ms | 508 KB |
subtask_1_04.txt | AC | 2 ms | 508 KB |
subtask_1_05.txt | AC | 2 ms | 508 KB |
subtask_1_06.txt | AC | 2 ms | 636 KB |
subtask_1_07.txt | AC | 3 ms | 1404 KB |
subtask_1_08.txt | AC | 16 ms | 6780 KB |
subtask_1_09.txt | AC | 16 ms | 6780 KB |
subtask_1_10.txt | AC | 16 ms | 6780 KB |
subtask_1_11.txt | AC | 16 ms | 6780 KB |
subtask_1_12.txt | AC | 16 ms | 6780 KB |
subtask_1_13.txt | AC | 17 ms | 6780 KB |
subtask_1_14.txt | AC | 16 ms | 6780 KB |
subtask_1_15.txt | AC | 16 ms | 6780 KB |
subtask_1_16.txt | AC | 16 ms | 6780 KB |
subtask_1_17.txt | AC | 16 ms | 6780 KB |