Exercices

exercices.js

// # Exercice 1:

// Étant données les deux fonctions suivantes:

// f :: a -> [b]
var f = (a) => [ a * a ];

// g :: a -> [b]
var g = (a) => [ a + 10 ];

// Écris l'implémentation de la fonction `compose` définie ainsi:
//     compose :: (a->[b]) -> (a->[b]) -> (a->[b])
// p.e.
//     var h = compose(f, g);
//     h    //=> (a) => [ (a+10) * (a+10) ]
//     h(2) //=> [ 144 ]

var compose = (k1, k2) => {
   return k1(k2(a));
};

// # Exercice 2:

// Étant données `f`, `g` et `compose`, écris la fonction `bind` définie ainsi:
//     bind :: [a] -> (a -> [b]) -> [b]
// p.e.
//     bind([1,2,3], compose(f,g)) //=> [121, 144, 169]

var bind = (list, k) => {
    return _.flatten(list.map(k));// peut mieux faire, p.ex sans lodash
};


// # Exercice 3:

// Vérifie que ceci est vrai:
//
//     bind(bind([1,2,3], g), f) === [121, 144, 169]