From 859f2cdf1c3093e85586fefae835fecf7cdafed5 Mon Sep 17 00:00:00 2001
From: gwen <gremond@cadoles.com>
Date: Thu, 6 Apr 2017 16:57:22 +0200
Subject: [PATCH] algorithme factorielle

---
 algorithmique/cours/algo.txt            | 49 +++++++++++++++++++++++++
 algorithmique/cours/code/factorielle.ml | 17 +++++++++
 algorithmique/cours/code/factorielle.py | 12 ++++++
 3 files changed, 78 insertions(+)
 create mode 100644 algorithmique/cours/code/factorielle.ml
 create mode 100644 algorithmique/cours/code/factorielle.py

diff --git a/algorithmique/cours/algo.txt b/algorithmique/cours/algo.txt
index 687cbf8..2624431 100644
--- a/algorithmique/cours/algo.txt
+++ b/algorithmique/cours/algo.txt
@@ -110,6 +110,55 @@ Exemple d'algorithme
     \end{algorithmic}
     \end{algorithm}
 
+Exemple d'algorithme avec deux implémentations
+-----------------------------------------------
+
+Soit l'algorithme de factorielle suivant :
+
+.. raw:: latex
+
+    \begin{algorithm}
+    \caption{Algorithme de la factorielle d'un nombre}\label{factorielle}
+    \begin{algorithmic}[1]
+    \Function{factorielle}{$n$}\Comment{La fonction récursive factorielle}
+    \BState \emph{parametre} : $n$ entier
+    \If{$n = 1$}
+    \BState \emph{Return} : 1
+    \Else
+    \BState \emph{Return} : $n * \Call{factorielle}{n-1}$
+    \EndIf
+    \EndFunction
+    \end{algorithmic}
+    \end{algorithm}
+
+
+Ou encore, en **pseudocode** (algorithme vague) :
+
+.. function:: factorielle(n:int)
+
+
+::
+
+    begin
+       if n=1
+          return 1
+       else
+          return n * factoriel(n-1)
+       end if
+    end
+
+Implémentation en python :
+
+.. literalinclude:: code/factorielle.py
+    :language: python
+
+Implémentation en OCaml :
+
+.. literalinclude:: code/factorielle.ml
+    :language: ocaml
+
+
+
 Qualité d'un algorithme
 -----------------------
 
diff --git a/algorithmique/cours/code/factorielle.ml b/algorithmique/cours/code/factorielle.ml
new file mode 100644
index 0000000..5065a2c
--- /dev/null
+++ b/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 ()
+
+
diff --git a/algorithmique/cours/code/factorielle.py b/algorithmique/cours/code/factorielle.py
new file mode 100644
index 0000000..734719f
--- /dev/null
+++ b/algorithmique/cours/code/factorielle.py
@@ -0,0 +1,12 @@
+def factorielle(n):
+    if (n > 1):
+       r  = n*factorielle(n-1)
+    else:
+        r = 1
+    return r
+
+def print_fact(n):
+    print "factorielle {} = {}\n".format(5, factorielle(5))
+
+if __name__ == '__main__':
+    print_fact(5)