Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: c0b4bb49ef
Fetching contributors…

Cannot retrieve contributors at this time

14 lines (12 sloc) 0.322 kB
(define (make-withdraw balance)
(lambda (amount)
(if (>= balance amount)
(begin (set! balance (- balance amount))
balance)
'no-funds)))
(define W1 (make-withdraw 100))
(define W2 (make-withdraw 500))
(write (W1 20))
(write (W2 30))
(write (W1 80))
(write (W2 100))
Jump to Line
Something went wrong with that request. Please try again.