Commit | Line | Data |
---|---|---|
ada8f303 JB |
1 | #!/usr/bin/env newlisp |
2 | ||
3 | (define (Puissance P N) | |
4 | (cond | |
5 | ((= N 0) 1) | |
6 | ((= N 1) P) | |
7 | ((< N 0) (div 1 (Puissance P (- N)))) | |
8 | ((* P (Puissance P (- N 1)))))) | |
9 | (println (Puissance 5 5)) | |
10 | ||
11 | ; https://fr.wikipedia.org/wiki/Algorithme_d%27Euclide | |
12 | (define (pgcd N P) | |
13 | (cond | |
14 | ((< N P) (pgcd P N)) | |
15 | ((= N P) N) | |
16 | ((= P 0) N) | |
17 | ((pgcd (- N P) P)))) | |
18 | (println (pgcd 12 4)) | |
19 | (println (pgcd 25 5)) | |
20 | (println (pgcd 21 7)) | |
21 | ||
22 | ; https://fr.wikipedia.org/wiki/Coefficient_binomial | |
23 | (define (comb N P) | |
24 | (cond | |
25 | ((= P 0) 1) | |
26 | ((= N P) 1) | |
27 | ((+ (comb (- 1 N) P) (comb (- 1 N) (- 1 P)))))) | |
28 | ;(println (comb 5 4)) | |
29 | ||
30 | (exit) |