fork download
copy 
  1. (* your code goes here *)
  2. let ht = Sys.time () in
  3. let hl = [] in
  4.  
  5. for i = 1 to 10000000 do
  6.   10 :: 9 :: 8 :: 7 :: 6 :: 5 :: 4 :: 3 :: 2 :: 1 :: hl
  7. done;
  8. print_float (Sys.time () -. ht);
  9.  
  10. print_char '\n';
  11.  
  12. let tt = Sys.time () in
  13. let tl = [] in
  14.  
  15. for i = 1 to 10000000 do
  16.   tl @ [1] @ [2] @ [3] @ [4] @ [5] @ [6] @ [7] @ [8] @ [9] @ [10]
  17. done;
  18. print_float (Sys.time () -. tt)
Success #stdin #stdout 1.04s 4216KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0.296018
0.760047
https://ideone.com/gdq4Bp
language:
OCaml (ocamlopt 4.05.0)
created:
7 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!