fork(1) download 
  1. import Data.Function (on)
  2. import Data.List (sortBy)
  3.  
  4. n561 :: String -> [(Int, [Int])]
  5. n561
  6.   = sortBy (compare `on` snd)
  7.   . zip [1..]
  8.   . fmap (fmap read . words)
  9.   . drop 1
  10.   . lines
  11.  
  12. main :: IO ()
  13. main = do
  14.   input <- getContents
  15.   mapM_ print . fmap fst . n561 $ input
Success #stdin #stdout 0s 8388607KB
comments (?)
stdin 
10
4 2 2 2 2 2
1 2 2
1 3 2
1 2 3
3 2 2 2 2
2 2 2 2
1 3 3
3 3 3 3 3
2 4 3 3
2 2 3 4
stdout 
2
4
3
7
6
10
9
5
8
1
https://ideone.com/y87Rdp
language:
Haskell (ghc 8.4.4)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!