結果
問題 | No.1020 Reverse |
ユーザー | poapoa |
提出日時 | 2020-07-30 12:37:30 |
言語 | Haskell (9.8.2) |
結果 |
AC
|
実行時間 | 33 ms / 2,000 ms |
コード長 | 872 bytes |
コンパイル時間 | 4,250 ms |
コンパイル使用メモリ | 195,976 KB |
実行使用メモリ | 20,500 KB |
最終ジャッジ日時 | 2023-09-16 23:21:33 |
合計ジャッジ時間 | 6,021 ms |
ジャッジサーバーID (参考情報) |
judge15 / judge11 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 2 ms
7,052 KB |
testcase_01 | AC | 2 ms
6,996 KB |
testcase_02 | AC | 3 ms
6,972 KB |
testcase_03 | AC | 3 ms
7,116 KB |
testcase_04 | AC | 2 ms
6,992 KB |
testcase_05 | AC | 3 ms
7,084 KB |
testcase_06 | AC | 3 ms
7,084 KB |
testcase_07 | AC | 22 ms
14,444 KB |
testcase_08 | AC | 23 ms
17,276 KB |
testcase_09 | AC | 22 ms
14,792 KB |
testcase_10 | AC | 23 ms
17,276 KB |
testcase_11 | AC | 32 ms
19,516 KB |
testcase_12 | AC | 22 ms
19,040 KB |
testcase_13 | AC | 22 ms
18,512 KB |
testcase_14 | AC | 33 ms
19,504 KB |
testcase_15 | AC | 32 ms
19,740 KB |
testcase_16 | AC | 32 ms
20,500 KB |
testcase_17 | AC | 22 ms
15,840 KB |
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.6.1/environments/default [1 of 2] Compiling Main ( Main.hs, Main.o ) [2 of 2] Linking a.out
ソースコード
import qualified Control.Arrow as Arrow import qualified Control.Monad as Monad import qualified Data.Char as Char import qualified Data.List as List import qualified Data.ByteString.Char8 as BSC8 import qualified Data.Vector.Unboxed as VU import qualified Data.Ord as Ord getI :: BSC8.ByteString -> Maybe (Int, BSC8.ByteString) getI = fmap (Arrow.second BSC8.tail) . BSC8.readInt getAB :: IO (Int, Int) getAB = (\vec -> (vec VU.! 0, vec VU.! 1)) . VU.unfoldrN 2 getI <$> BSC8.getLine main :: IO () main = do (n, k) <- getAB s <- BSC8.unpack <$> BSC8.getLine if even (n - k) then solve' n k s else solve'' n k s solve', solve'' :: Int -> Int -> String -> IO () solve' n k s = putStrLn $ drop (k - 1) s ++ (reverse $ take (k - 1) s) solve'' n k s = putStrLn $ drop (k - 1) s ++ take (k - 1) s