X-Git-Url: https://git.piment-noir.org/?p=TD_LISP.git;a=blobdiff_plain;f=exercices%2Farithmetic.lsp;fp=exercices%2Farithmetic.lsp;h=85f3f0145e446732be437de2f02cb280541aa8f9;hp=0000000000000000000000000000000000000000;hb=ada8f303fa63f62209dddeab6f4618f5b73a66b7;hpb=7cbb4caf073698a0bc7b27a406fe37c31d56d50f

diff --git a/exercices/arithmetic.lsp b/exercices/arithmetic.lsp
new file mode 100755
index 0000000..85f3f01
--- /dev/null
+++ b/exercices/arithmetic.lsp
@@ -0,0 +1,30 @@
+#!/usr/bin/env newlisp
+
+(define (Puissance P N)
+  (cond
+    ((= N 0) 1)
+    ((= N 1) P)
+    ((< N 0) (div 1 (Puissance P (- N))))
+    ((* P (Puissance P (- N 1))))))
+(println (Puissance 5 5))
+
+; https://fr.wikipedia.org/wiki/Algorithme_d%27Euclide
+(define (pgcd N P) 
+  (cond
+    ((< N P) (pgcd P N))
+    ((= N P) N)
+    ((= P 0) N)
+    ((pgcd (- N P) P))))
+(println (pgcd 12 4))
+(println (pgcd 25 5))
+(println (pgcd 21 7))
+
+; https://fr.wikipedia.org/wiki/Coefficient_binomial
+(define (comb N P) 
+  (cond
+    ((= P 0) 1)
+    ((= N P) 1)
+    ((+ (comb (- 1 N) P) (comb (- 1 N) (- 1 P))))))
+;(println (comb 5 4))
+
+(exit)