1 | static Lisp nlFromCons(Lisp term) {
|
2 | Lisp l = lisp("[]");
|
3 | while (term.is("[]", 3) && term.get(0).is("cons", 0)) {
|
4 | l.add(term.get(1)); |
5 | term = term.get(2); |
6 | } |
7 | if (!term.is("end")) l.add(term);
|
8 | ret l; |
9 | } |
Began life as a copy of #1002849
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: | #1002876 |
| Snippet name: | nlFromCons |
| Eternal ID of this version: | #1002876/1 |
| Text MD5: | 9f7ede583eca52be526c5e88652692e9 |
| Author: | stefan |
| Category: | eleu / nl |
| Type: | JavaX fragment (include) |
| Public (visible to everyone): | Yes |
| Archived (hidden from active list): | No |
| Created/modified: | 2016-03-11 00:59:31 |
| Source code size: | 225 bytes / 9 lines |
| Pitched / IR pitched: | No / No |
| Views / Downloads: | 547 / 549 |
| Referenced in: | [show references] |