From 9fe033ea88c2f705ec18c232873d056e0c229d72 Mon Sep 17 00:00:00 2001
From: Gaspard Coulet <gaspard.coulet@mines-ales.org>
Date: Wed, 28 Apr 2021 23:05:53 +0200
Subject: Initial commit

---
 sem_4/progaapp/TP1/divers.bak | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 sem_4/progaapp/TP1/divers.bak

(limited to 'sem_4/progaapp/TP1/divers.bak')

diff --git a/sem_4/progaapp/TP1/divers.bak b/sem_4/progaapp/TP1/divers.bak
new file mode 100644
index 0000000..f9c02be
--- /dev/null
+++ b/sem_4/progaapp/TP1/divers.bak
@@ -0,0 +1,11 @@
+#lang racket
+(define genliste ( lambda (d f p)
+                    (letrec ((f(lambda (li d)
+                                (if (< f (+ d p) )
+                               ( f (append li (+ d p)) (+ d p))
+                               li)
+                                )))
+                      (f '() d)
+                      )
+                    ))
+(define somme (lambda (x y z) (+ x y z)))
\ No newline at end of file
-- 
cgit v1.2.3