fork download
copy 
  1. let (<<) f g x = f (g x)
  2. let sorti = List.map snd << List.sort compare << List.mapi (fun i x -> (x, i))
  3. let f = sorti << sorti
  4. let g = print_newline << List.iter (Printf.printf "%d ") << f
  5. let () = 
  6. 	g [1;100;10;10000;1000];
  7. 	g [3;1;4;1;5;9;2];
  8. 	g [0;1;0;1;0;1;0;1]
Success #stdin #stdout 0s 5304KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0 2 1 4 3 
3 0 4 1 5 6 2 
0 4 1 5 2 6 3 7
https://ideone.com/E7eFPC
language:
OCaml (ocamlopt 4.05.0)
created:
56 days 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!