daily pastebin goal
51%
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
Top