main.ml 296 B

1234567891011121314151617181920
  1. open Printf;;
  2. open Somemodule;;
  3. (* coin coin ( ) ( ( (* ) ) ) ( ) muahha open nono;; *) *)
  4. (* ( *)
  5. let rec fib n =
  6. if n < 1 then 1
  7. else if n == 1 then 1
  8. else fib(n-1) + fib(n-2);;
  9. for i=0 to 10 do
  10. Somemodule.pprint "next";
  11. Printf.printf " %d %d\n" i (fib i)
  12. done;;
  13. print_newline();;