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:
    811 / 846
  

      

    Version history:
    7 change(s)
  

    

    Referenced in:
[show references]