Bienvenue dans DrScheme, version 352.
Langage: Assez gros Scheme.
(define (*xx x) (* x x))
(define (+x3 x) (+ x 3))
(define (*x5 x) (* 5 x))
(define (*x10 x) (* 10 x))
(define (identity t) t)
(compose *xx +x3)
#<procedure:...-fonctionnel.scm:2:2>
((compose *xx +x3) 1)
16
(*xx (+x3 1))
16
-------------------
(fofof *xx)
#<procedure:...-fonctionnel.scm:2:2>
((fofof *xx) 2)
256
(*xx (*xx (*xx 2)))
256
-------------------
(compose-n sqrt 4)
#<procedure:...-fonctionnel.scm:2:2>
((compose-n sqrt 4) 43046721)
3
(sqrt (sqrt (sqrt (sqrt 43046721))))
3
------------------
(compose-lst (list *xx *x10 +x3))
#<procedure:...-fonctionnel.scm:2:2>
((compose-lst (list *xx *x10 +x3)) 1)
1600
(*xx (*x10 (+x3 1)))
1600
>