lisplike.js

function isArray(elm) {
  return ('object' === typeof elm && elm.length >= 0);
}

function cons(elm1, elm2) {
  if (!isArray(elm1)) elm1 = [elm1];
  return elm1.concat(elm2);
}


function car(arr) {
  if (isArray(arr)) return arr[0];
  return arr
}

function cdr(arr) {
  if(isArray(arr)) return arr.slice(1);
  return [arr]
}

function cadr(arr) {
  return cdr(car(arr));
}

function cdar(arr) {
  return cdr(car(arr));
}