PasteRack.org
Paste # 98217
2019-05-07 23:56:03

Fork as a new paste.

Paste viewed 164 times.


Embed:

  1. #lang racket
  2.  
  3. (define my_stream
  4.     (letrec ([f (lambda (x) (cons x (lambda () (f (+ x 1)))))])
  5.         (lambda () (f 1))))
  6.  
  7. (define ans (car ((cdr ((cdr ((cdr (my_stream)))))))))
  8.  
  9. (writeln ans)

=>

4