< > BotCompany Repo | #1007941 // followForwardRelation

JavaX fragment (include)

static Set<Lisp> followForwardRelation(S relation, S argument) {
  ret followForwardRelation(relation, lisp(argument));
}

static Set<Lisp> followForwardRelation(S relation, Lisp argument) {
  new HashSet<Lisp> out;
  for (Lisp l : lispTruthByHead(relation))
    if (eq(l.get(0), argument))
      out.add(l.get(1));
  ret out;
}

Author comment

Began life as a copy of #1007843

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