ccorcos

let rec firstN n l =>
  if (n === 0 || List.length l === 0) {
    []
  } else {
    let h = List.hd l;
    let t = List.tl l;
    List.append [h] (firstN (n - 1) t)
  };

firstN 2 [1, 2, 3, 4, 5]; /* => list int: [1, 2] */

ccorcos

type result 'a = {mutable list: list 'a};

let firstN (n: int) (l: list 'a) :list 'a => {
  let result: result 'a = {list: []};
  let start = 0;
  let stop = min (n - 1) (List.length l - 1);
  for i in start to stop {
    result.list = List.append result.list [List.nth l i]
  };
  result.list

ccorcos

ccorcos

Star = \*
Text = .+
Grammar = Star Star (Star Text Star)* Text Star Star
        | Star (Star Star Text Star Star)* Text Star

ccorcos

const here = between(
  zeroOrMore(not(string('<here>'))),
  between(
    string('<here>'),
    zeroOrMore(not(string('</here>'))),
    string('</here>')
  ),
  always()
)
 

ccorcos

const here = between(
  zeroOrMore(not(string('<here>'))),
  between(
    string('<here>'),
    zeroOrMore(not(string('</here>'))),
    string('</here>')
  ),
  always()
)
 

ccorcos

const between = (l, p, r) => sequence([l, p, r]).map(v => v[1])

ccorcos

const not = parser =>
  new Parser(stream =>
    parser.run(stream)
    .fold(
      (value, s) => new Failure('not failed', stream),
      (value, s) =>
        stream.length > 0
          ? new Success(stream.head(), stream.move(1))
          : new Failure('unexpected end', stream)))

ccorcos

const string = str => sequence(str.split('').map(char))

ccorcos

const zeroOrMore = parser =>
  new Parser(stream =>
    parser.run(stream)
    .fold(
      (value, s) => zeroOrMore(parser).map(rest => [value].concat(rest)).run(s),
      (value, s) => new Success([], stream)))