< > BotCompany Repo | #1007505 // clUnparse

JavaX fragment (include)

static S clUnparse(Lisp l) {
  if (l == null) ret "";
  ret join(" ", (L) concatLists(ll(conceptQuote(l.head)), map(f clUnparse_sub, l)));
}

static S clUnparse_sub(Lisp l) {
  ret l.empty() ? clUnparse(l) : "(" + clUnparse(l) + ")";
}

static L<S> clUnparse(L<Lisp> l) {
  ret map(f clUnparse, l);
}

download  show line numbers  debug dex  old transpilations   

Travelled to 13 computer(s): aoiabmzegqzx, bhatertpkbcr, cbybwowwnfue, cfunsshuasjs, gwrvuhgaqvyk, ishqpsrjomds, lpdgvwnxivlt, mqqgnosmbjvj, pyentgdyhuwx, pzhvpgtvlbxg, tslmcundralx, tvejysmllsmz, vouqrxazstgt

No comments. add comment