Submission #36237827

---

Source Code Expand

import Control.Monad
import Data.Maybe
import qualified Data.ByteString.Char8 as BS
import Data.List

readInt = fst . fromJust . BS.readInt
readIntList = map readInt . BS.words
getInt = readInt <$> BS.getLine
getIntList = readIntList <$> BS.getLine

main = do
    n <- getInt
    xs <- reverse <$> getIntList
    putStrLn . unwords. map show $ solve xs

solve xs = reverse $ ys ++ [h] ++ zs
    where f [] = 0
          f [x] = 1
          f (x:y:ps) | x > y = 1 + f (y : ps)
                     | otherwise = 1
          d = f xs
          ds = take d xs
          a = head $ drop d xs
          zs = drop (d + 1) xs
          h = maximum $ filter (< a) ds 
          ys = sort $ filter (/= h) (a:ds)

Submission Info

Compile Error

Loaded package environment from /home/contestant/.ghc/x86_64-linux-8.8.3/environments/default

Judge Result