Guest User

Untitled

a guest
Apr 27th, 2018
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.24 KB | None | 0 0
  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))))
Add Comment
Please, Sign In to add comment