From 9fe033ea88c2f705ec18c232873d056e0c229d72 Mon Sep 17 00:00:00 2001 From: Gaspard Coulet Date: Wed, 28 Apr 2021 23:05:53 +0200 Subject: Initial commit --- sem_4/progaapp/TP1/divers.rkt | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 sem_4/progaapp/TP1/divers.rkt (limited to 'sem_4/progaapp/TP1/divers.rkt') 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 -- cgit v1.2.3