diff options
Diffstat (limited to 'test/fib.ml')
| -rw-r--r-- | test/fib.ml | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/test/fib.ml b/test/fib.ml deleted file mode 100644 index d113be5f77..0000000000 --- a/test/fib.ml +++ /dev/null @@ -1,24 +0,0 @@ -(***********************************************************************) -(* *) -(* 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$ *) - -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 30 in - print_int(fib n); print_newline(); exit 0 - |