diff options
Diffstat (limited to 'sem_4/progaapp/TP1/divers.bak')
| -rw-r--r-- | sem_4/progaapp/TP1/divers.bak | 11 |
1 files changed, 11 insertions, 0 deletions
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 |