2016 Update
This commit is contained in:
parent
948b86eafa
commit
dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
|
|
@ -0,0 +1,21 @@
|
|||
(() => {
|
||||
'use strict';
|
||||
|
||||
|
||||
// compose :: [(a -> a)] -> (a -> a)
|
||||
let compose = fs => x => fs.reduceRight((a, f) => f(a), x);
|
||||
|
||||
|
||||
// TEST a composition of 3 functions (right to left)
|
||||
|
||||
let 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