fluture/src/internal/list.mjs

FantasyLand compliant (monadic) alternative to Promises

export var nil = {head: null};
nil.tail = nil;

export function isNil(list){
  return list.tail === list;
}

// cons :: (a, List a) -> List a
//      -- O(1) append operation
export function cons(head, tail){
  return {head: head, tail: tail};
}

// reverse :: List a -> List a
//         -- O(n) list reversal
export function reverse(xs){
  var ys = nil, tail = xs;
  while(!isNil(tail)){
    ys = cons(tail.head, ys);
    tail = tail.tail;
  }
  return ys;
}

// cat :: (List a, List a) -> List a
//     -- O(n) list concatenation
export function cat(xs, ys){
  var zs = ys, tail = reverse(xs);
  while(!isNil(tail)){
    zs = cons(tail.head, zs);
    tail = tail.tail;
  }
  return zs;
}