diff options
Diffstat (limited to 'sem_4/progaapp/TP1/divers.rkt')
| -rw-r--r-- | sem_4/progaapp/TP1/divers.rkt | 39 |
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 |