fork download 
  1. let operationOnArray arr : unit =
  2.   let tmp = arr.(0) in
  3.   arr.(0) <- arr.(1) ;
  4.   arr.(1) <- tmp
  5.  
  6. let operationOnList la : 'a list =
  7.   let arr = Array.of_list la in
  8.   operationOnArray arr ;
  9.   Array.to_list arr
  10.  
  11.  
  12. let l0 = [ 1 ; 2 ]
  13. let l1 = operationOnList l0
  14. let _ = assert (l0 = l1)
  15.  
Runtime error #stdin #stdout #stderr 0s 4132KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
stderr 
Fatal error: exception Assert_failure("prog.ml", 14, 8)
https://ideone.com/dDpWy1
language:
OCaml (ocamlopt 4.05.0)
created:
6 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!