Monet.js<-> ramda lift interop

[char0n]

fantasyland/fantasy-land#50

const { Maybe } = require('monet');
const { curry, last, slice, reverse, reduce, pipe, ap, curryN, map, flip } = require('ramda');

const apF = flip(ap);

const liftFN = curry((arity, fn) => {
  const lifted = curryN(arity, fn);
  return curryN(arity, (...args) => {
    const accumulator = map(lifted, last(args));
    const apps = pipe(slice(0, -1), reverse)(args);
    return reduce(apF, accumulator, apps);
  });
});

const liftF = fn => liftFN(fn.length, fn);
const liftF2 = liftFN(2);
const liftF3 = liftFN(3);

const m2 = Maybe.of(2);
const m3 = Maybe.of(3);
const m4 = Maybe.of(4);
const add = liftF((a, b, c) => a + b + c);

console.dir(add(m2, m3, m4));

[char0n]

Implemented.