ReasonML class example

ClassTest.re

/**
 * Class test:
 * ---------------
 * (see: https://v1.realworldocaml.org/v1/en/html/classes.html)
 */

class stack ('a) (init) = {
  as _self;
  val mutable v: list('a) = init;
  pub pop = () => {
    switch (v) {
    | [hd, ...tl] =>
      v = tl;
      Some(hd);
    | [] => None
    };
  };
  pub push = (hd) => v = [hd, ...v];
  pub iter = (f) => List.iter(f, v);

  pub log = () => {
    Js.log2("stack: ", v);
  };
};

let run = () => {
  let s = (new stack)([]);

  for (i in 0 to 5) {
    s#push(i);
  };

  let myIterFn = (elt)=> Js.log2("elt: ", elt);
  s#iter(myIterFn);
  s#log();
};