fork download
copy 
  1. open Printf
  2.  
  3. type globalType = { mutable v : int };;
  4.  
  5. let global : globalType = { v = 0};;
  6.  
  7. let foo () = begin
  8. 	global.v <- global.v + 1 ;
  9. 	global.v
  10. 	end
  11.  
  12. let bar () = begin
  13. 	global.v <- global.v * 2 ;
  14. 	global.v
  15. 	end
  16.  
  17. let () =
  18. 	printf "%d\n" (foo ()) ;
  19. 	printf "%d\n" (bar ()) ;
  20. 	printf "%d\n" (foo ()) ;
  21. 	printf "%d\n" (bar ())
Success #stdin #stdout 0s 16096KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
2
3
6
https://ideone.com/2uXhxr
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!