Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
|
|
@ -0,0 +1,24 @@
|
|||
(() => {
|
||||
"use strict";
|
||||
|
||||
// -------------- MULTIPLE COMPOSITION ---------------
|
||||
|
||||
// compose (<<<) :: (b -> c) -> (a -> b) -> a -> c
|
||||
const compose = (...fs) =>
|
||||
// A function defined by the right-to-left
|
||||
// composition of all the functions in fs.
|
||||
fs.reduce(
|
||||
(f, g) => x => f(g(x)),
|
||||
x => x
|
||||
);
|
||||
|
||||
// ---------------------- TEST -----------------------
|
||||
const
|
||||
sqrt = Math.sqrt,
|
||||
succ = x => x + 1,
|
||||
half = x => x / 2;
|
||||
|
||||
return compose(half, succ, sqrt)(5);
|
||||
|
||||
// --> 1.618033988749895
|
||||
})();
|
||||
Loading…
Add table
Add a link
Reference in a new issue