let compute ()= let x =ref 1 in while !x <10000000 do incr x done let sync () = Bsml.proj << 0 >> let _ = sync () let v = compute () let _ = sync () let v = compute () let comms = Bsml.put << fun i -> if i = $this$ +1 then i else 0 >> let v = << compute () >> let comms = Bsml.put << fun i -> Array.make (10*i) i >>
BSML

	

BSML

Run BSML programs in your web browsers.

This web-based BSML toplevel is compiled using Js_of_ocaml.

Codes source

Exercices