2012-10-17 13:09:16 -07:00
|
|
|
(***********************************************************************)
|
|
|
|
|
(* *)
|
|
|
|
|
(* OCaml *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Copyright 1997 Institut National de Recherche en Informatique et *)
|
|
|
|
|
(* en Automatique. All rights reserved. This file is distributed *)
|
|
|
|
|
(* under the terms of the Q Public License version 1.0. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(***********************************************************************)
|
|
|
|
|
|
1997-09-17 04:57:19 -07:00
|
|
|
let _ =
|
2012-07-27 04:31:21 -07:00
|
|
|
match Sys.word_size with
|
|
|
|
|
| 32 ->
|
|
|
|
|
print_int (1 * 1000000000); print_newline();
|
|
|
|
|
print_string "10000000000"; print_newline();
|
|
|
|
|
print_string "100000000000"; print_newline();
|
|
|
|
|
print_string "1000000000000"; print_newline();
|
|
|
|
|
print_string "10000000000000"; print_newline();
|
|
|
|
|
print_string "100000000000000"; print_newline();
|
|
|
|
|
print_string "1000000000000000"; print_newline();
|
|
|
|
|
print_string "10000000000000000"; print_newline();
|
|
|
|
|
print_string "100000000000000000"; print_newline();
|
|
|
|
|
print_string "1000000000000000000"; print_newline();
|
|
|
|
|
| 64 ->
|
|
|
|
|
print_int (1 * 1000000000); print_newline();
|
|
|
|
|
print_int (10 * 1000000000); print_newline();
|
|
|
|
|
print_int (100 * 1000000000); print_newline();
|
|
|
|
|
print_int (1000 * 1000000000); print_newline();
|
|
|
|
|
print_int (10000 * 1000000000); print_newline();
|
|
|
|
|
print_int (100000 * 1000000000); print_newline();
|
|
|
|
|
print_int (1000000 * 1000000000); print_newline();
|
|
|
|
|
print_int (10000000 * 1000000000); print_newline();
|
|
|
|
|
print_int (100000000 * 1000000000); print_newline();
|
|
|
|
|
print_int (1000000000 * 1000000000); print_newline()
|
|
|
|
|
| _ -> assert false
|
