fork download
copy 
  1. class cell =
  2. 	object
  3. 		val mutable contents = 0
  4. 		method get = contents
  5. 		method set x = contents <- x
  6. 	end;;
  7.  
  8. let makecell =
  9. 	object
  10. 		val mutable contents = 0
  11. 		method get = contents
  12. 		method set x = contents <- x
  13. 	end;;
  14.  
  15. let test c x =
  16. 	c#set x;
  17. 	print_int c#get;;
  18.  
  19. test (new cell) 1;;
  20. test (makecell) 2;;
Success #stdin #stdout 0.01s 2736KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
12
https://ideone.com/ub0J7H
language:
OCaml (ocamlopt 4.05.0)
created:
11 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!