1 | static Web web_lower(Web web) { |
2 | for (WebNode node : web.nodes) { |
3 | web_lower_noindex(node); |
4 | } |
5 | web_reindex(web); |
6 | web.labelsToUpper = false; |
7 | ret web; |
8 | } |
9 | |
10 | static void web_lower_noindex(WebNode node) { |
11 | node.labels = map(f web_lower_x, node.labels); |
12 | } |
13 | |
14 | static Lisp web_lower_x(Lisp l) { |
15 | ret nempty(l.args) ? l : lisp(toLowerCase(l.head)); |
16 | } |
Began life as a copy of #1009972
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: | #1010080 |
Snippet name: | web_lower - labels to lower case |
Eternal ID of this version: | #1010080/1 |
Text MD5: | 97009e4322bf3af97cc827f0b3f1e8b3 |
Author: | stefan |
Category: | javax / a.i. |
Type: | JavaX fragment (include) |
Public (visible to everyone): | Yes |
Archived (hidden from active list): | No |
Created/modified: | 2017-09-02 01:38:55 |
Source code size: | 365 bytes / 16 lines |
Pitched / IR pitched: | No / No |
Views / Downloads: | 448 / 481 |
Referenced in: | [show references] |