Initial commit

1 files changed, 39 insertions, 0 deletions

diff --git a/sem_4/progaapp/TP1/divers.rkt b/sem_4/progaapp/TP1/divers.rkt
new file mode 100644
index 0000000..576f153
--- /dev/null
+++ b/sem_4/progaapp/TP1/divers.rkt
@@ -0,0 +1,39 @@
+;Gaspard Coulet 21601609 Groupe B
+#lang racket
+
+;Exercice 9 :
+(define genliste (lambda (d f p)
+                    (letrec ((fun(lambda (li d)
+                                (if (> f (+ d p) )
+                               ( fun (append li (list (+ d p))) (+ d p))
+                               li)
+                                )))
+                      (fun '() (- d p))
+                      )
+                    ))
+
+;Exercice 10 :
+
+(define make-lancer (lambda (x y z)
+                      (list x y z)))
+(define premier (lambda ( li ) (car li)))
+(define deuxieme (lambda ( li ) (cadr li)))
+(define troisieme (lambda (li) (caddr li)))
+
+;Exercice 11 :
+(define gagnant? (lambda (li) (and (xor(xor ( = (premier li ) 4) (= (deuxieme li) 4)) (= (troisieme li) 4))
+                                   (xor(xor ( = (premier li ) 2) (= (deuxieme li) 2)) (= (troisieme li) 2))
+                                   (xor(xor ( = (premier li ) 1) (= (deuxieme li) 1)) (= (troisieme li) 1)))))
+
+(define jouer (lambda ()
+                (gagnant? (make-lancer (+(random 5) 1) (+(random 5) 1) (+(random 5) 1)))))
+
+
+;Exercice 12 :
+(define jeux (lambda (n)
+               (if ( < 0 n)
+               ( cons (jeux (- n 1)) (jouer))
+               #f
+               )
+               ))
+  
\ No newline at end of file