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/tdp1.bak | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 sem_4/progaapp/TP1/tdp1.bak (limited to 'sem_4/progaapp/TP1/tdp1.bak') diff --git a/sem_4/progaapp/TP1/tdp1.bak b/sem_4/progaapp/TP1/tdp1.bak new file mode 100644 index 0000000..1e9e3cb --- /dev/null +++ b/sem_4/progaapp/TP1/tdp1.bak @@ -0,0 +1,16 @@ +#lang racket +(define x 5) +(define (f x ) (* x x )) + +(define d 1) +(define (plusd x) ( + x d)) + +(set! d 5) + +(define (g x ) (+ 1 (h x))) +(define (h x) (* x x)) + +(define monabs ( lambda (x) (sqrt (* x x)))) +(define care-div ( lambda (x y) (if (not ( = 0 y)) (/ x y) ( display "Err div 0")))) +(define exo9 (lambda (t) (if (and ( >= t -3) (<= t -1)) 1 (if (and (>= t 2) (<= t 4)) 2 0)))) +(define placement (lambda (x t y) (expt (+ x (* t x)) y ))) \ No newline at end of file -- cgit v1.2.3