diff options
Diffstat (limited to 'ocaml-binary-annot/testsuite/tests/misc/fib.ml')
| -rw-r--r-- | ocaml-binary-annot/testsuite/tests/misc/fib.ml | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/ocaml-binary-annot/testsuite/tests/misc/fib.ml b/ocaml-binary-annot/testsuite/tests/misc/fib.ml new file mode 100644 index 0000000000..c7e7505850 --- /dev/null +++ b/ocaml-binary-annot/testsuite/tests/misc/fib.ml @@ -0,0 +1,24 @@ +(***********************************************************************) +(* *) +(* Objective Caml *) +(* *) +(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) +(* *) +(* Copyright 1996 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. *) +(* *) +(***********************************************************************) + +(* $Id: fib.ml 7017 2005-08-12 09:22:04Z xleroy $ *) + +let rec fib n = + if n < 2 then 1 else fib(n-1) + fib(n-2) + +let _ = + let n = + if Array.length Sys.argv >= 2 + then int_of_string Sys.argv.(1) + else 40 in + print_int(fib n); print_newline(); exit 0 + |