PasteRack.org
Paste # 80987
2017-06-15 10:30:38

Fork as a new paste.

Paste viewed 43 times.


Embed:

  1. #lang racket
  2. (define ( tray-test)
  3. (set! n 0)
  4. (set! a 0)
  5.         (while (< a 15)
  6.                 (raise-tray)
  7.                 (lower-tray)
  8.                 (set! a (+ a 1))
  9.                 (nap-log "")
  10.                 (nap-log a)
  11.                 (nap-log "")
  12.         )
  13. (nap-log "  tray test is done")
  14. )

=>