sem_4/progaapp/TP1/divers.bak


1
2
3
4
5
6
7
8
9
10
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)))