PasteRack.org
Paste # 94855
2015-05-19 23:29:32

Fork as a new paste.

Paste viewed 202 times.


Embed:

  1. #lang racket
  2.  
  3. (let ([prompt-tag (make-continuation-prompt-tag 'for/stream)])
  4.    (define (loop element continue)
  5.      (if continue
  6.          (+ element (call-with-continuation-prompt continue prompt-tag loop))
  7.          element))
  8.    (call-with-continuation-prompt
  9.     (thunk
  10.      (for/fold () ([i (in-range 10)])
  11.       (let/cc continue
  12.         (abort-current-continuation prompt-tag (let () i) continue)))
  13.      (abort-current-continuation prompt-tag 0 #f))
  14.     prompt-tag loop))

=>

0