16 lines
320 B
OCaml
16 lines
320 B
OCaml
let yield = ref false
|
|
|
|
let print_message c =
|
|
for i = 1 to 10000 do
|
|
print_char c; flush stdout;
|
|
if !yield then Thread.yield()
|
|
done
|
|
|
|
let _ = yield := (Array.length Sys.argv > 1)
|
|
let t1 = Thread.create print_message 'a'
|
|
let t2 = Thread.create print_message 'b'
|
|
let _ = Thread.join t1
|
|
let _ = Thread.join t2
|
|
|
|
;;
|