Not logged in.  Login/Logout/Register | List snippets | | Create snippet | Upload image | Upload data

75
LINES

< > BotCompany Repo | #1001507 // Singular & plural (without lisp)

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

Libraryless. Click here for Pure Java version (397L/3K/10K).

1  
!747
2  
!multi-line strings
3  
4  
m {
5  
  static new L<S> rules;
6  
  static new L<S> statements;
7  
  
8  
  p {
9  
    rules.add([["$1 is the singular of $2." <=> "$2 is the plural of $1."]]);
10  
    statements.add("house is the singular of houses.");
11  
    process();
12  
    print(fromLines(statements));
13  
  }
14  
  
15  
  static void process() {
16  
    for (S rule : rules) {
17  
      new Matches m;
18  
      if (match3("* <=> *", rule, m)) {
19  
        S l = m.unq(0), r = m.unq(1);
20  
        for (Map<S, S> map : matchStatements(l))
21  
          addStatement(convert(r, map));
22  
      }
23  
    }
24  
  }
25  
  
26  
  static L<Map<S, S>> matchStatements(S pat) {
27  
    L<Map<S, S>> l = new ArrayList<Map<S, S>>();
28  
    for (S s : statements) {
29  
      Map<S, S> m = match4(pat, s);
30  
      if (m != null) l.add(m);
31  
    }
32  
    ret l;
33  
  }
34  
  
35  
  static Map<S, S> match4(S pat, S s) {
36  
    L<S> tok1 = parse3(pat), tok2 = parse3(s);
37  
    if (tok1.size() != tok2.size()) ret null;
38  
    new Map<S, S> m;
39  
    for (int i = 1; i < tok1.size(); i += 2) {
40  
      S t1 = tok1.get(i), t2 = tok2.get(i);
41  
      if (isVar(t1))
42  
        m.put(t1, t2);
43  
      else if (!t1.equalsIgnoreCase(t2))
44  
        ret null;
45  
    }
46  
    ret m;
47  
  }
48  
  
49  
  static boolean isVar(S s) {
50  
    ret s.startsWith("$") && s.length() > 1;
51  
  }
52  
  
53  
  static S convert(S r, Map<S, S> matches) {
54  
    L<S> tok = javaTokPlusPeriod(r);
55  
    for (int i = 1; i < tok.size(); i += 2) {
56  
      if (tok.get(i).startsWith("$")) {
57  
        S m = matches.get(tok.get(i));
58  
        if (m != null)
59  
          tok.set(i, m);
60  
      }
61  
    }
62  
    ret join(tok);
63  
  }
64  
  
65  
  static void addStatement(S s) {
66  
    for (S st : statements)
67  
      if (match3(st, s))
68  
        ret;
69  
    statements.add(s);
70  
  }
71  
  
72  
  !include #2000515 // unquote
73  
  !include #1001497 // parseBoolean
74  
  !include #1000709 // formatSnippetID
75  
}

Author comment

Began life as a copy of #1001506

download  show line numbers  debug dex  old transpilations   

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

No comments. add comment

Snippet ID: #1001507
Snippet name: Singular & plural (without lisp)
Eternal ID of this version: #1001507/1
Text MD5: 1783a063aa8ee6d119759a82ce834042
Transpilation MD5: df17b780d33a64ef92b4e75754250ad8
Author: stefan
Category:
Type: JavaX source code
Public (visible to everyone): Yes
Archived (hidden from active list): No
Created/modified: 2015-10-21 15:49:40
Source code size: 1823 bytes / 75 lines
Pitched / IR pitched: No / Yes
Views / Downloads: 481 / 515
Referenced in: [show references]