and_or_tailcall_test.js

'use strict';

var Mt    = require("./mt");
var Block = require("../../lib/js/block");

function f(b, _, _n) {
  while(true) {
    var n = _n;
    if (n > 100000) {
      return /* false */0;
    } else if (b) {
      _n = n + 1 | 0;
      continue ;
      
    } else {
      return /* false */0;
    }
  };
}

function or_f(b, _, _n) {
  while(true) {
    var n = _n;
    if (n > 100000) {
      return /* false */0;
    } else if (b) {
      return /* true */1;
    } else {
      _n = n + 1 | 0;
      continue ;
      
    }
  };
}

var suites_000 = /* tuple */[
  "and_tail",
  function () {
    return /* Eq */Block.__(0, [
              /* false */0,
              f(/* true */1, 1, 0)
            ]);
  }
];

var suites_001 = /* :: */[
  /* tuple */[
    "or_tail",
    function () {
      return /* Eq */Block.__(0, [
                /* false */0,
                or_f(/* false */0, 1, 0)
              ]);
    }
  ],
  /* [] */0
];

var suites = /* :: */[
  suites_000,
  suites_001
];

Mt.from_pair_suites("and_or_tailcall_test.ml", suites);

exports.f      = f;
exports.or_f   = or_f;
exports.suites = suites;
/*  Not a pure module */