"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.loopUnit = exports.loop = void 0
// tracing: off
const L = __importStar(require("../Collections/Immutable/List"))
const Function_1 = require("../Function")
const core = __importStar(require("./core"))
const map = __importStar(require("./map"))
/**
 * Loops with the specified effectual function, collecting the results into a
 * list. The moral equivalent of:
 *
 * ```
 * let s  = initial
 * let as = [] as readonly A[]
 *
 * while (cont(s)) {
 *   as = [body(s), ...as]
 *   s  = inc(s)
 * }
 *
 * A.reverse(as)
 * ```
 */
function loop(initial, cont, inc) {
  return (body, __trace) => {
    return map.map_(loopInternal_(initial, cont, inc, body, __trace), (x) =>
      Array.from(L.reverse(x))
    )
  }
}
exports.loop = loop
function loopInternal_(initial, cont, inc, body, __trace) {
  return core.suspend(() => {
    if (cont(initial)) {
      return core.chain_(body(initial), (a) =>
        map.map_(loopInternal_(inc(initial), cont, inc, body), (as) => {
          L.push_(as, a)
          return as
        })
      )
    }
    return core.succeedWith(() => L.emptyPushable())
  }, __trace)
}
/**
 * Loops with the specified effectual function purely for its effects. The
 * moral equivalent of:
 *
 * ```
 * var s = initial
 *
 * while (cont(s)) {
 *   body(s)
 *   s = inc(s)
 * }
 * ```
 */
function loopUnit(initial, cont, inc) {
  return (body, __trace) => {
    return core.suspend(() => {
      if (cont(initial)) {
        return core.chain_(body(initial), () => loopUnit(inc(initial), cont, inc)(body))
      }
      return core.unit
    }, __trace)
  }
}
exports.loopUnit = loopUnit
//# sourceMappingURL=loop.js.map
