Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import Control.Applicative
- import Data.List
- main :: IO ()
- main = do
- _ <- getLine
- a <- map read . words <$> getLine :: IO [Int]
- let b = zip [1..] a
- sequence $ map (\x -> putStrLn $ show (fst x)) $ sortBy (\x y -> compare (snd y) (snd x)) b
- return ()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement