fork download 
  1.  
  2. f = map minimum
  3.  
  4. main = let xs = [[-4,1,3],[-1,-pi,-2.3],[4,4356,0]]
  5.        in  print $ zipWith (\x -> subtract 1 . length . dropWhile (/=x)) (f xs) xs
Success #stdin #stdout 0s 4688KB
comments (?)
stdin 
Standard input is empty
stdout 
[2,1,0]
https://ideone.com/Mu3kLw
language:
Haskell (ghc 8.4.4)
created:
9 years ago
visibility:
secret

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!