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