Advertisement
Guest User

Untitled

a guest
Sep 25th, 2016
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1. import Control.Applicative
  2. import Data.List
  3.  
  4. main :: IO ()
  5. main = do
  6. _ <- getLine
  7. a <- map read . words <$> getLine :: IO [Int]
  8. let b = zip [1..] a
  9.  
  10. sequence $ map (\x -> putStrLn $ show (fst x)) $ sortBy (\x y -> compare (snd y) (snd x)) b
  11.  
  12. return ()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement