daily pastebin goal
60%
SHARE
TWEET

Untitled

a guest Apr 27th, 2018 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. (use srfi-1)
  3.  
  4. (define (list-combinator nlist)
  5.     (define (comb alist blist)
  6.         ((compose concatenate map) (lambda (a) (map (cut cons a <>) blist)) alist))
  7.     (fold-right comb '(()) nlist))
  8.  
  9. (print (list-combinator '((1 2 3) (4 5 6) (7 8 9))))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top