mise en place des cours algo + poo

algo/algorithmique/cours/code/factorielle.ml

@@ -0,0 +1,17 @@
+let rec fact = function
+    |1 -> 1
+    | n -> n * fact (n-1) ;;
+
+let print_fact n =
+  Printf.printf "factorielle %i = %i\n" n (fact n)
+
+let main () = 
+  begin 
+    print_fact 5 ;
+    print_newline () ;
+    exit 0 ;
+  end
+
+let _ = main ()
+
+