mirror of
https://gitlab.com/ita1024/waf.git
synced 2024-11-26 03:39:53 +01:00
21 lines
296 B
OCaml
21 lines
296 B
OCaml
|
|
||
|
|
open Printf;;
|
||
|
|
|
||
|
|
open Somemodule;;
|
||
|
|
|
||
|
|
(* coin coin ( ) ( ( (* ) ) ) ( ) muahha open nono;; *) *)
|
||
|
|
(* ( *)
|
||
|
|
|
||
|
|
let rec fib n =
|
||
|
|
if n < 1 then 1
|
||
|
|
else if n == 1 then 1
|
||
|
|
else fib(n-1) + fib(n-2);;
|
||
|
|
|
||
|
|
for i=0 to 10 do
|
||
|
|
Somemodule.pprint "next";
|
||
|
|
Printf.printf " %d %d\n" i (fib i)
|
||
|
|
done;;
|
||
|
|
|
||
|
|
print_newline();;
|
||
|
|
|