Ramda.applyMerge2

applyMerge2.js

var R = require('ramda');

R.compose(
  R.apply(R.add), 
  R.ap([R.add(3), R.multiply(100)])
)([5]); // 508


// applyMerge2 :: (a -> b) -> (a -> b) -> (b -> c) -> ([a] -> c)
var applyMerge2 = function(f1, f2, fmerge) { 
  return R.compose(R.apply(fmerge), R.ap([f1, f2]), R.of); 
};

var add3AndMultiply100ThenSum = applyMerge2(R.add(3), R.multiply(100), R.add);

// Equivalent to `(+) <$> (+3) <*> (*100) $ 5` in Haskell
add3AndMultiply100ThenSum(5); // 508