1 | static Lisp snlSimplifyJuxta(Lisp tree) {
|
2 | if (!isJuxta(tree)) ret tree; |
3 | |
4 | new L<S> op; |
5 | new L<Lisp> parts; |
6 | for (Lisp part : tree) |
7 | if (part.isEmpty() && startsWithLowerCase(part.head)) |
8 | op.add(part.head); |
9 | else {
|
10 | op.add("*");
|
11 | parts.add(part); |
12 | } |
13 | Lisp result = lisp(join(" ", op), parts);
|
14 | print("Simplified " + tree + " to " + result);
|
15 | result.more = tree.more; |
16 | ret result; |
17 | } |
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: | #1002800 |
| Snippet name: | snlSimplifyJuxta - UNUSED |
| Eternal ID of this version: | #1002800/1 |
| Text MD5: | f4943777c9f4d63043dc11a33874331c |
| Author: | stefan |
| Category: | javax |
| Type: | JavaX fragment (include) |
| Public (visible to everyone): | Yes |
| Archived (hidden from active list): | No |
| Created/modified: | 2016-02-25 20:49:37 |
| Source code size: | 431 bytes / 17 lines |
| Pitched / IR pitched: | No / No |
| Views / Downloads: | 626 / 555 |
| Referenced in: | [show references] |