Guest User

Untitled

a guest
May 22nd, 2018
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.38 KB | None | 0 0
  1. ; Q. Is there more polished form to write this procedure?
  2.  
  3. (let1 f (lambda (x y) (cons x y)) ; Actually, f is an arbitrary procedure.
  4. (map (lambda (outer-element)
  5. (map (lambda (inner-element)
  6. (f inner-element outer-element))
  7. '(a b c)))
  8. '(1 2 3)))
  9.  
  10. ; ==> ((a . 1) (b . 1) (c . 1)
  11. ; (a . 2) (b . 2) (c . 2)
  12. ; (a . 3) (b . 3) (c . 3))
Add Comment
Please, Sign In to add comment