Word remover [1002870]

< > BotCompany Repo | #1002870 // Word remover

JavaX source code [tags: use-pretranspiled] - run with: x30.jar

!752

static S wordToRemove = "the";

p {
  S input = "[this is [the] sentence] [we are talking about [all [the time]]]";
  Lisp in = nlParse(input);
  print(input);
  print("s/" + wordToRemove + "//");
  print(nlUnparse(removeWord(wordToRemove, in)));
}

static Lisp removeWord(S word, Lisp in) {
  if (in.isLeaf() && eqic(in.head, word))
    ret lisp("[]");
  Lisp lisp = new Lisp(in.head);
  for (int i = 0; i < in.size(); i++) {
    Lisp translated = removeWord(word, in.get(i));
    if (!translated.is("[]", 0))
      lisp.add(translated);
  }
  ret lisp;
}

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

Snippet ID:

#1002870

Snippet name:

Word remover

Eternal ID of this version:

#1002870/1

Text MD5:

9c89a50df1dab44bf2c08a59af71923a

Transpilation MD5:

51de51782b8fb5b58eefc23cd7811e39

Author:

stefan

Category:

eleu / nl / prolog

Type:

JavaX source code

Public (visible to everyone):

Yes

Archived (hidden from active list):

Created/modified:

2016-03-10 18:38:34

Source code size:

584 bytes / 23 lines

Pitched / IR pitched:

No / No

Views / Downloads:

472 / 517

Referenced in:

[show references]

1	!752
2
3	static S wordToRemove = "the";
4
5	p {
6	S input = "[this is [the] sentence] [we are talking about [all [the time]]]";
7	Lisp in = nlParse(input);
8	print(input);
9	print("s/" + wordToRemove + "//");
10	print(nlUnparse(removeWord(wordToRemove, in)));
11	}
12
13	static Lisp removeWord(S word, Lisp in) {
14	if (in.isLeaf() && eqic(in.head, word))
15	ret lisp("[]");
16	Lisp lisp = new Lisp(in.head);
17	for (int i = 0; i < in.size(); i++) {
18	Lisp translated = removeWord(word, in.get(i));
19	if (!translated.is("[]", 0))
20	lisp.add(translated);
21	}
22	ret lisp;
23	}