gist: 99935


  
    
      flatten.clj #
    
    
      
      
        embed
        
      
      
      
      raw
    
  
  
  
    
      
        
          
            
            1
2
3
4
5
6
7
8

          
          
            
              ;; a bit faster flatten
 
(defn flatten [x] 
  (if (seq? x)
    (lazy-seq (apply #(lazy-cat %&) (map flatten x)))
    (list x)))
Public Clone URL:	git://gist.github.com/99935.git Give this clone URL to anyone. `git clone git://gist.github.com/99935.git gist-99935`
Embed All Files:	show embed