PasteRack.org
Paste # 61515
2020-05-10 03:43:34

Forked from paste # 81764.

Fork as a new paste.

Paste viewed 501 times.


Embed:

  1. #lang racket
  2. (require racket/generator)
  3. (define id (generator (op)
  4.               (let loop ([p op])
  5.                 (let ([a (car p)]
  6.                       [b (cdr p)])
  7.                         (loop (yield (cons a b))))))
  8.                   )
  9.  
  10. (display (id (cons 2 3)))
  11. (display (id (cons 3 4)))

=>

(2 . 3)

(3 . 4)