結果
問題 | No.610 区間賞(Section Award) |
ユーザー | kuwa |
提出日時 | 2017-12-10 19:31:31 |
言語 | Haskell (9.8.2) |
結果 |
AC
|
実行時間 | 302 ms / 2,000 ms |
コード長 | 1,199 bytes |
コンパイル時間 | 878 ms |
コンパイル使用メモリ | 166,480 KB |
実行使用メモリ | 35,916 KB |
最終ジャッジ日時 | 2023-08-20 09:56:34 |
合計ジャッジ時間 | 5,305 ms |
ジャッジサーバーID (参考情報) |
judge11 / judge12 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 2 ms
7,452 KB |
testcase_01 | AC | 3 ms
7,264 KB |
testcase_02 | AC | 3 ms
7,400 KB |
testcase_03 | AC | 2 ms
7,268 KB |
testcase_04 | AC | 2 ms
7,392 KB |
testcase_05 | AC | 2 ms
7,500 KB |
testcase_06 | AC | 3 ms
7,884 KB |
testcase_07 | AC | 2 ms
7,564 KB |
testcase_08 | AC | 3 ms
8,088 KB |
testcase_09 | AC | 3 ms
7,728 KB |
testcase_10 | AC | 3 ms
8,044 KB |
testcase_11 | AC | 3 ms
8,032 KB |
testcase_12 | AC | 2 ms
7,440 KB |
testcase_13 | AC | 3 ms
8,112 KB |
testcase_14 | AC | 3 ms
8,024 KB |
testcase_15 | AC | 3 ms
7,864 KB |
testcase_16 | AC | 3 ms
7,888 KB |
testcase_17 | AC | 3 ms
7,940 KB |
testcase_18 | AC | 2 ms
7,664 KB |
testcase_19 | AC | 22 ms
14,504 KB |
testcase_20 | AC | 63 ms
28,980 KB |
testcase_21 | AC | 13 ms
13,760 KB |
testcase_22 | AC | 42 ms
24,216 KB |
testcase_23 | AC | 13 ms
12,788 KB |
testcase_24 | AC | 22 ms
16,076 KB |
testcase_25 | AC | 6 ms
11,304 KB |
testcase_26 | AC | 32 ms
18,672 KB |
testcase_27 | AC | 62 ms
28,812 KB |
testcase_28 | AC | 52 ms
27,152 KB |
testcase_29 | AC | 42 ms
23,812 KB |
testcase_30 | AC | 53 ms
26,240 KB |
testcase_31 | AC | 32 ms
17,652 KB |
testcase_32 | AC | 52 ms
28,712 KB |
testcase_33 | AC | 12 ms
13,560 KB |
testcase_34 | AC | 52 ms
28,740 KB |
testcase_35 | AC | 32 ms
18,248 KB |
testcase_36 | AC | 52 ms
28,556 KB |
testcase_37 | AC | 52 ms
26,648 KB |
testcase_38 | AC | 22 ms
16,116 KB |
testcase_39 | AC | 63 ms
29,216 KB |
testcase_40 | AC | 63 ms
29,200 KB |
testcase_41 | AC | 62 ms
29,272 KB |
testcase_42 | AC | 63 ms
29,256 KB |
testcase_43 | AC | 62 ms
29,244 KB |
testcase_44 | AC | 243 ms
30,764 KB |
testcase_45 | AC | 301 ms
34,832 KB |
testcase_46 | AC | 302 ms
35,916 KB |
testcase_47 | AC | 52 ms
26,740 KB |
testcase_48 | AC | 52 ms
26,008 KB |
testcase_49 | AC | 52 ms
27,052 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
ソースコード
module Main where import Control.Monad import Control.Applicative import Data.Maybe import Data.List import qualified Text.Printf import qualified Data.ByteString.Char8 as BC import qualified Data.ByteString as BC import Data.Array.Unboxed (UArray, (!)) import qualified Data.Array.Unboxed as UArray import Debug.Trace ------------------------------------------ main :: IO () main = do n <- readInt ss <- reverse <$> readInts ts <- readInts let pl = UArray.array (1, n) $ zip ts [1..] res = sort $ solve (n+1) ss pl mapM_ print res solve :: Int -> [Int] -> UArray Int Int -> [Int] solve ub ss pl = f ub ss where f _ [] = [] f ub (x:xs') = let place = pl ! x in if pl ! x < ub then x : f (pl ! x) xs' else f ub xs' ------------------------------------------ {- Int input -} parseInt :: BC.ByteString -> Int parseInt = fst . fromJust . BC.readInt parseInts :: BC.ByteString -> [Int] parseInts = map parseInt <$> BC.words readInt :: IO Int readInt = parseInt <$> BC.getLine readInts :: IO [Int] readInts = parseInts <$> BC.getLine {- Double Formatting -} doubleFmt :: Double -> String doubleFmt = Text.Printf.printf "%.12f"