dewey92 · July 4, 2017 09:22
diff --git a/kleisli-solution.js b/kleisli-solution.js
 // composeK :: Monad m => ((y → m z), (x → m y), …, (a → m b)) → (a → m z)
 const composeK = (...fns) => init => {
  if (!fns.length) throw new Error('Need at least 1 argument')

  const lastArg = fns.pop();

  return fns.reduceRight((acc, x) => acc.bind(x), lastArg(init))
 }
	// composeK :: Monad m => ((y → m z), (x → m y), …, (a → m b)) → (a → m z)
	const composeK = (...fns) => init => {
	if (!fns.length) throw new Error('Need at least 1 argument')

	const lastArg = fns.pop();

	return fns.reduceRight((acc, x) => acc.bind(x), lastArg(init))
	}
No results found