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

12
LINES

< > BotCompany Repo | #1007505 // clUnparse

JavaX fragment (include)

1  
static S clUnparse(Lisp l) {
2  
  if (l == null) ret "";
3  
  ret join(" ", (L) concatLists(ll(conceptQuote(l.head)), map(f clUnparse_sub, l)));
4  
}
5  
6  
static S clUnparse_sub(Lisp l) {
7  
  ret l.empty() ? clUnparse(l) : "(" + clUnparse(l) + ")";
8  
}
9  
10  
static L<S> clUnparse(L<Lisp> l) {
11  
  ret map(f clUnparse, l);
12  
}

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: #1007505
Snippet name: clUnparse
Eternal ID of this version: #1007505/8
Text MD5: 17c21ee900f1916d0d1fe72fffcfd0e0
Author: stefan
Category: javax / a.i.
Type: JavaX fragment (include)
Public (visible to everyone): Yes
Archived (hidden from active list): No
Created/modified: 2017-04-10 12:18:08
Source code size: 311 bytes / 12 lines
Pitched / IR pitched: No / No
Views / Downloads: 459 / 486
Version history: 7 change(s)
Referenced in: [show references]