Applicative instances composition in vanilla js

compose-applicative.js

function composeFunctor(f, g) {

  function map(h, fga) {
    return f.map(ga => g.map(h, ga), fga)
  }

  return { map }
}

function composeApplicative(f, g) {

  const { map } = composeFunctor(f, g)

  function ap(fgab, fga) {
    return f.ap(f.map(h => ga => g.ap(h, ga), fgab), fga)
  }

  function of(a) {
    return f.of(g.of(a))
  }

  return { map, ap, of }
}

// Example

// The Applicative instance for Array
const arr = {
  map(f, fa) {
    return fa.map(f)
  },
  of(a) {
    return [a]
  },
  ap(fab, fa) {
    return fab.reduce((acc, f) => acc.concat(fa.map(f)), [])
  }
}

// The Applicative instance of Maybe
const maybe = {
  map(f, fa) {
    return fa == null ? null : f(fa)
  },
  of(a) {
    return a;
  },
  ap(fab, fa) { 
    return fab == null ? null : this.map(fab, fa)
  }
}

// Compose them!
const x = [" foo ", null, "bar   "];
// x.map(v => v.trim()) // BOOM! Explodes on null
composeFunctor(arr, maybe).map(v => v.trim(), x) // ["foo", null, "bar"]

const f = v => v.trim()
const g = v => v.startsWith("b")

composeApplicative(arr, maybe).ap([f, g], x) // ["foo", null, "bar", "false", null, "true"]

Still, really nice!