functional-data-structure/finger-tree

import assert from 'assert';

import {Split} from '../0-core/index.js';
import {node2, node3} from '../2-node/index.js';

import {Digit, One, Two, Four} from './index.js';

export function Three(a, b, c) {
    this.a = a;
    this.b = b;
    this.c = c;
    this.v = null;
}

Three.prototype = new Digit();

Three.prototype.measure = function (M) {
    if (this.v === null)
        this.v = M.plus(
            M.measure(this.a),
            M.plus(M.measure(this.b), M.measure(this.c)),
        );
    return this.v;
};

Three.prototype.head = function () {
    return this.a;
};

Three.prototype.last = function () {
    return this.c;
};

Three.prototype.init = function () {
    return new Two(this.a, this.b);
};

Three.prototype.tail = function () {
    return new Two(this.b, this.c);
};

Three.prototype.push = function (value) {
    return new Four(this.a, this.b, this.c, value);
};

Three.prototype.cons = function (value) {
    return new Four(value, this.a, this.b, this.c);
};

Three.prototype.node = function (M) {
    return node3(M, this.a, this.b, this.c);
};

/**
 * It is assumed that p(i+|this|) is true.
 */
Three.prototype.splitDigit = function (p, i, M) {
    assert(p(M.plus(i, this.measure(M)))); // /!\ Potential Heisenbug generator.
    i = M.plus(i, M.measure(this.a));
    if (p(i)) return new Split([], this.a, [this.b, this.c]);
    i = M.plus(i, M.measure(this.b));
    if (p(i)) return new Split([this.a], this.b, [this.c]);
    return new Split([this.a, this.b], this.c, []);
};

Three.prototype._nodes = function (M, other) {
    if (other instanceof One)
        return [node2(M, this.a, this.b), node2(M, this.c, other.a)];
    if (other instanceof Two)
        return [node3(M, this.a, this.b, this.c), node2(M, other.a, other.b)];
    if (other instanceof Three)
        return [
            node3(M, this.a, this.b, this.c),
            node3(M, other.a, other.b, other.c),
        ];
    assert(other instanceof Four);
    return [
        node3(M, this.a, this.b, this.c),
        node2(M, other.a, other.b),
        node2(M, other.c, other.d),
    ];
};

Three.prototype._list = function () {
    return [this.a, this.b, this.c];
};