1 | static Map<S, Lisp> matchCondition_first(Lisp condition, Map<S, Lisp> m) { |
2 | L<Lisp> facts = lispTruth(); |
3 | |
4 | O evaluator = getLispEvaluator(condition.head); |
5 | if (evaluator != null) |
6 | ret isTrue(callF(evaluator, lispReplaceVars(condition, m))) ? m : null; |
7 | |
8 | L<Map<S, Lisp>> candidates = new L; |
9 | for (Lisp fact : facts) { |
10 | Map<S, Lisp> m2 = cloneMap(m); |
11 | if (lispMatchIC_xyzVars_sub(condition, fact, m2)) |
12 | ret m2; |
13 | } |
14 | null; |
15 | } |
Began life as a copy of #1008129
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
Snippet ID: | #1008296 |
Snippet name: | matchCondition_first |
Eternal ID of this version: | #1008296/1 |
Text MD5: | 2eeb438a117b633567f539fc6bbe43f5 |
Author: | stefan |
Category: | javax / a.i. |
Type: | JavaX fragment (include) |
Public (visible to everyone): | Yes |
Archived (hidden from active list): | No |
Created/modified: | 2017-05-07 00:23:58 |
Source code size: | 459 bytes / 15 lines |
Pitched / IR pitched: | No / No |
Views / Downloads: | 403 / 447 |
Referenced in: | [show references] |