PasteRack.org
Paste # 11679
2017-08-10 22:02:04

Fork as a new paste.

Paste viewed 101 times.


Embed:

  1. #lang racket
  2.  
  3. (define balance 0)
  4. (define counter 0)
  5.  
  6. ;deposit remembers
  7. (define (deposit n)
  8.   (begin
  9.     (set! balance (+ n balance))
  10.     balance))
  11.  
  12. ;sample input:
  13. ;> balance
  14. ;0
  15. ;> (deposit 20)
  16. ;20
  17. ;> balance
  18. ;20
  19.  
  20. ;doesnt remember if i bound make-counter to a variable
  21. ;but if i just keep inputting (make-counter) then counter
  22. ;gets incremented
  23. (define (make-counter)
  24.   (begin
  25.     (set! counter(+ counter 1)) counter))

=>