RosettaCodeData/Task/Loops-Break/OCaml/loops-break.ocaml

19 lines
269 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
# Random.self_init();;
- : unit = ()
# while true do
let a = Random.int 20 in
print_int a;
print_newline();
if a = 10 then raise Exit;
let b = Random.int 20 in
print_int b;
print_newline()
done;;
15
18
2
13
10
Exception: Pervasives.Exit.