mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-18 21:29:18 +02:00
11 lines
235 B
Scheme
11 lines
235 B
Scheme
;; This should run forever using a constant amount of memory
|
|
;; and max CPU:
|
|
|
|
;; Original program:
|
|
;; (define (foo) (bar))
|
|
;; (define (bar) (foo))
|
|
;; (foo)
|
|
|
|
(letrec ((foo (lambda () (bar)))
|
|
(bar (lambda () (foo))))
|
|
(foo))
|