Advertisement
Guest User

Untitled

a guest
Nov 5th, 2018
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.19 KB | None | 0 0
  1. (define (outer a b)
  2.   (define (inner b c)
  3.     (define (more-inner c d)
  4.       (+ a (* 2 b) (+ 3 c) (* 4 d)))
  5.     (more-inner b 6))
  6.   inner)
  7. ; expect outer
  8.  
  9. ((outer 1 7) 8 3)
  10. ; expect 52
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement