版博士V2.0程序
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

10 lines
431 B

  1. export function chainFirst(M) {
  2. return function (f) { return function (first) { return M.chain(first, function (a) { return M.map(f(a), function () { return a; }); }); }; };
  3. }
  4. export function bind(M) {
  5. return function (name, f) { return function (ma) { return M.chain(ma, function (a) { return M.map(f(a), function (b) {
  6. var _a;
  7. return Object.assign({}, a, (_a = {}, _a[name] = b, _a));
  8. }); }); }; };
  9. }