dinocarl

// use transducers
const appendTo = flip(append);

const apCh = (fn, accVal) => (item) => accVal = fn(accVal, item);

const steps = [
  filter(test(/[()]/)),
  map((item) => item === '(' ? 1 : -1),
  map(apCh(add, 0)), // scan transducer
];

dinocarl

const apCh = (fn, accVal) => (item) => accVal = fn(accVal, item);

const scanr = curry((fn, acc, xs) => map(
  apCh(fn, acc),
  xs
))

scanr(add, 0)(
  [5,6,7,8]
);

dinocarl

const isntEmpty = complement(isEmpty);
const isntNil = complement(isNil);
const isntNaN = complement(isNaN);

const pageLens = lensProp('page');

const numberValidations = [
  isntNaN,
  isntNil,
  isntEmpty,

dinocarl

const validVal = compose(
  not,
  anyPass([isEmpty, isNil])
);

const validProp = curry((propName, obj) => validVal(prop(propName, obj)));

const propsOr = curry((fallback, propsList, obj) => compose(
  cond,
  append([T, always(fallback)]),

dinocarl

const selectBrevity= (l, r) => lte(length(l), length(r))
  ? l
  : r;

const lispy = ([fn, ...args]) => fn(...args);

const makeSet = (arr) => uniq(flatten(arr));

const zipObjLisped = (arr) => ({ [head(arr)]: lispy(tail(arr)) });

dinocarl

const toThsnds = compose(
  multiply(1000),
  Math.round,
  multiply(1/1000)
);

const avgToThsnds = (arr) => compose(
  toThsnds,
  multiply(1/length(arr)),
  reduce(add, 0)

dinocarl

const izzer = (str, mod) => (num) => modulo(num, mod) === 0
  ? str
  : '';

const izzerStr = compose(
  join(''),
  juxt([
    izzer('fizz', 3),
    izzer('buzz', 5),
  ])

dinocarl

// utilities
const includes = (needle) => (haystack) => (haystack.indexOf(needle) > -1);
const includesAtPos = (needle) => (position) => (haystack) => (haystack.indexOf(needle) === position);
const testFor = (re) => (str) => re.test(str);
const and = (...fnList) => (data) => fnList.every((fn) => fn(data));

const groupBy = (fn) => (arr) => arr.reduce(
  (out, val) => {
    let by = fn(val);
    (out[by] = out[by] || []).push(val);

dinocarl

const md = require('markdown-it')();
const markdownItAttrs = require('markdown-it-attrs');

const src = `
# header {: .title-class #title-id }
some text {: with=attrs and="attrs with space" }
more body copy with some *emphasis*{: .emph-class } thrown in {: .para-class}
- item 1
- item 2 {: .item-class }
- item 3

dinocarl

grep -R --exclude-dir={node_modules,build,.git} --exclude=*.{png,jpg,vim,swp,swo} 'searchString' ./