"use strict"
var __createBinding =
  (this && this.__createBinding) ||
  (Object.create
    ? function (o, m, k, k2) {
        if (k2 === undefined) k2 = k
        Object.defineProperty(o, k2, {
          enumerable: true,
          get: function () {
            return m[k]
          }
        })
      }
    : function (o, m, k, k2) {
        if (k2 === undefined) k2 = k
        o[k2] = m[k]
      })
var __setModuleDefault =
  (this && this.__setModuleDefault) ||
  (Object.create
    ? function (o, v) {
        Object.defineProperty(o, "default", { enumerable: true, value: v })
      }
    : function (o, v) {
        o["default"] = v
      })
var __importStar =
  (this && this.__importStar) ||
  function (mod) {
    if (mod && mod.__esModule) return mod
    var result = {}
    if (mod != null)
      for (var k in mod)
        if (k !== "default" && Object.prototype.hasOwnProperty.call(mod, k))
          __createBinding(result, mod, k)
    __setModuleDefault(result, mod)
    return result
  }
Object.defineProperty(exports, "__esModule", { value: true })
exports.mapAccumM_ = exports.mapAccumM = void 0
// tracing: off
const A = __importStar(require("../../Collections/Immutable/Chunk"))
const Function_1 = require("../../Function")
const O = __importStar(require("../../Option"))
const T = __importStar(require("../_internal/effect"))
const M = __importStar(require("../_internal/managed"))
const Ref = __importStar(require("../_internal/ref"))
const BP = __importStar(require("../BufferedPull"))
const definitions_1 = require("./definitions")
/**
 * Statefully and effectfully maps over the elements of this stream to produce
 * new elements.
 *
 * @dataFirst mapAccumM_
 */
function mapAccumM(z, f) {
  return (self) => mapAccumM_(self, z, f)
}
exports.mapAccumM = mapAccumM
/**
 * Statefully and effectfully maps over the elements of this stream to produce
 * new elements.
 */
function mapAccumM_(self, z, f) {
  return new definitions_1.Stream(
    M.map_(
      M.bind_(
        M.bind_(M.do, "state", () => Ref.makeManagedRef(z)),
        "pull",
        () => M.mapM(BP.make)(self.proc)
      ),
      ({ pull, state }) =>
        T.chain_(BP.pullElement(pull), (o) =>
          T.mapError_(
            T.map_(
              T.tap_(
                T.bind_(
                  T.bind_(T.do, "s", () => state.get),
                  "t",
                  ({ s }) => f(s, o)
                ),
                ({ t }) => state.set(t.get(0))
              ),
              ({ t }) => A.single(t.get(1))
            ),
            O.some
          )
        )
    )
  )
}
exports.mapAccumM_ = mapAccumM_
//# sourceMappingURL=mapAccumM.js.map
