fork download 
  1. class summator =
  2. 	object
  3. 		val mutable sum = 0
  4. 		method add n = sum <- sum + n
  5. 		method get = sum
  6. 	end
  7.  
  8. let () =
  9. 	let s = new summator in
  10. 		for i = 1 to 10 do
  11. 			s#add i
  12. 		done;
  13. 		print_int s#get
Success #stdin #stdout 0s 4252KB
comments (?)
stdin 
Standard input is empty
stdout 
55
https://ideone.com/Ywo2Uk
language:
OCaml (ocamlopt 4.05.0)
created:
9 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!